Eu faço a leitura na tabela e populo o TComboBox com os "objetos"
retornados.
Ex.:
Function TEmpresa.BuscaEmpresas: TList;
Var
lstEmpresas: TList;
oEmpresa: TEmpresa;
Begin
lstEmpresas := TList.Create;
dtm_empresa.BuscaEmpresas;
With dtm_empresa.cds_empresa do
Begin
Try
If RecordCount <> 0 Then
Begin
First;
While Not EOF do
Begin
oEmpresa := TEmpresa.Create;
oEmpresa.RazaoSocial := FieldByName('RazaoSocial' ).AsString;
oEmpresa.NomeFantasia := FieldByName('NomeFantasia').AsString;
oEmpresa.CNPJ := FieldByName('CNPJ' ).AsString;
oEmpresa.InscEstadual := FieldByName('InscEstadual').AsString;
lstEmpresas.Add(oEmpresa);
Next;
End;
End;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
Result := lstEmpresas;
End;
{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }
Populando o TComboBox:
Procedure Tfrm_empresa.ListaEmpresas;
Var
i: Integer;
Begin
lstEmpresas := Empresa.BuscaEmpresas;
If lstEmpresas.Count > 0 Then
Begin
For i := 0 to lstEmpresas.Count - 1 do
Begin
Empresa := lstEmpresas[i];
grd_empresa.Cells[0, i + 1] := Empresa.RazaoSocial;
grd_empresa.Cells[1, i + 1] := Empresa.NomeFantasia;
grd_empresa.Cells[2, i + 1] := Empresa.CNPJ;
grd_empresa.Cells[3, i + 1] := Empresa.InscEstadual;
End;
End;
End;
{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }
Espero ter ajudado na compreensão.
Sds,
Romario
Willian Jerônymo - Yahoo escreveu:
> Programando dessa maneiro (sem componentes Data Ware) como faço com os meus
> DBLookupComboBoxs ?
>
> Esse componente é uma mãe em nossas aplicações...
>
> Alguém tem alguma dica ?
>
>
> Willian
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
