Eu não trabalho com IBO, mas acredito que deve ser mais ou menos assim:
{ <><><><><><><><><><><><><> NA CLASSE <><><><><><><><><><><><><><> }
Function TCidade.BuscaCidades(oEstado: TEstado): TIB_ListBox;
Var
lstCidades : TIB_ListBox;
oCidade : TCidade;
Begin
lstCidades := TIB_ListBox.Create;
dtm_Cidade.BuscaCidades(oEstado);
With dtm_Cidade.cds_Cidade do
Begin
Try
If RecordCount <> 0 Then
Begin
First;
While Not EOF do
Begin
oCidade := TCidade.Create;
oCidade.Codigo := FieldByName('Codigo').AsInteger;
oCidade.Nome := FieldByName('Nome' ).AsString;
oCidade.Estado := oEstado;
lstCidades.Add(oCidade);
Next;
End;
End;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
Result := lstCidades;
End;
{ <><><><><><><><><><><><> NO FORMULÁRIO <><><><><><><><><><><><><> }
Populando o TComboBox:
Procedure Tfrm_Cidade.ListaCidades(oEstado: TEstado);
Var
i: Integer;
Begin
lstCidades := Cidade.BuscaCidades(oEstado);
If lstCidades.Count > 0 Then
Begin
For i := 0 to lstCidades.Count - 1 do
Begin
Cidade := lstCidades[i];
grd_Cidade.Cells[0, i + 1] := Cidade.Codigo;
grd_Cidade.Cells[1, i + 1] := Cidade.Nome;
End;
End;
End;
{ <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }
Espero ter ajudado na compreensão.
Sds,
Romario
plucaslazaro escreveu:
> Boa Noite Thiago/Osmar
>
> eu fiz o seguinte, coloquei um ComboBox, está aparecendo os estados,
> certinho, e coloquei uma TIB_Query e um TIB_ListBox.
> minha dúvida é como jogar estas cidades no TIB_Listbox, passei a tarde toda
> tentando, olhei alguns exemplos mas não consegui.
> Eu sou novato, e principalmente utilizando IBO, se não for pedir demais e vc
> puder me ajudar como jogar estes dados para o Listbox....
>
> Obrigado a todos
>
> Paulo
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< 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
