DBLookupListBox

[Pedro Dias]

Bom dia.

Já trabalho com o ListBox e pra percorrer ele não foi dificil. Mas pra percorrer um DBLookupListBox ta sendo um tanto complicado.

Preciso percorrer ele da primeira linha até a ultima, mas não consigo posicionar na primeira linha e muito menos contar até a ultima.

Alguém sabe como fazer isso utilizando DBLookupListBox? pois com é ListBox é diferente.

Edited February 29, 2012 by Pedro Dias

[Jhonas]

exemplo

procedure TForm1.Button1Click(Sender: TObject);
var i : integer; s : String;
begin
   for i:=1 to DBLookupListBox1.ListSource.DataSet.RecordCount do
   begin
      s := DBLookupListBox1.ListSource.DataSet[DBLookupListBox1.ListField];
      Showmessage( s );
      DBLookupListBox1.ListSource.DataSet.Next;
   end;
end;

abraço