Rellenar un ListBox con los registros de un campo de la BD

[Neftali [Germán.Estévez]]

Empezado por Nbull

...Pero, ahora como quito los registros que estan vacios, Neftalí me dijo que con la propiedad Isnull del Field pero como llamo a esa propiedad.

Algo así debería funcionar.

Código Delphi [-]
  procedure TForm7.FormCreate(Sender: TObject);
 begin
 // Asigna la SQL y abre una sola vez, no cien ..
 AdoQuery1.SQL.Add('SELECT distinct Poblacion FROM agenda');
 AdoQuery1.Active:=true;
 // recorre los registros
 WHILE not AdoQuery1.EOF do
   begin
     // Si es vacío no lo añado
     if not (AdoQuery1,Fields.FieldByName('Poblacion').IsNull) then begin
       // y asigna el valor de los campos de esa query que utilizas, y no otra
       ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion').AsString);
     end;
     AdoQuery1.NEXT;
   end;
 end;

[[Nbull]]

Neftalí muchisimas gracias ya he solucionado el problema pongo el código por si alguien que sea tan novato como yo lo necesita:

Código Delphi [-]
procedure TForm7.FormCreate(Sender: TObject);
begin
 AdoQuery1.SQL.Text:='SELECT distinct Poblacion FROM agenda';
 AdoQuery1.Active:=true;
 WHILE not AdoQuery1.EOF do
 begin
     If(Adoquery1.Fields.FieldByName('Poblacion').IsNull=false)Then
      begin
       ListBox1.Items.Add(Datasource3.DataSet.FieldByName('poblacion').AsString);
      end;
      AdoQuery1.Next;
 end;
end;

Un Saludo y muchas gracias