Tabela em listbox

Delphi

01/08/2003

Amigos,

Como faço para listar os registros de um campo de uma tabela em uma list box.

Estou acessando a tabela através de uma query e estou usando o seguinte código...só que na list só aparece o primeiro registro

Obrigado,

Wellington

if dm.qAnoProp.eof=false then
begin
lstAnop.Items.Add(dm.qAnoProp.Fieldbyname(´ano_prop´).AsString);
end
else
lstAnop.Items.Clear;
exit;


Sheudas

Sheudas

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

01/08/2003

Colega,

Use DBListBox neste caso. É mais fácil, pois já possui datalink.
No seu código o erro é a falta de uma estrutura de controle de laço, como um while..not.eof..do

lstAnop.Items.Clear; 
dm.qAnoProp.First;

while not dm.qAnoProp.eof do 
begin 
  lstAnop.Items.Add(dm.qAnoProp.Fieldbyname(´ano_prop´).AsString); 
  dm.qAnoProp.Next;
end;



GOSTEI 0
POSTAR