[elturu15]

Solo lo quiero mostrar en ListBox...todo el codigo es este :

Código Delphi [-]
Begin
ListBox1.Clear;
 Clave2:=ComboBox1.Text;
 Clave1:=ComboBox2.Text;
   If (Clave1>='00') and (Clave1<='99') and (Clave2>='00') and (Clave2<='99')Then
     Begin
       ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Text:='SELECT Clave,Nombre,Nombre_Ciudad,Codigo_Postal  FROM Provincias LEFT JOIN Ciudades ON (Provincias.Clave = Ciudades.Clave_Provincia)  WHERE clave between '+ clave1 +' and '+ clave2 +' order by Clave';
       ADOQuery1.Open;
       AdoQuery1.First; // nos posicionamos en el primer registro
       ADOQuery1.Active:=true;
         While not ADOQuery1.EOF do
           Begin
    {Clave3:=ADOQuery1.Fields[0].AsString;
                   Clave4:=StrToInt(clave3);
                   ListBox1.Items.Add('Clave de Provincia : '+FormatFloat('00',Clave4));
                   ListBox1.Items.Add('Nombre de Provincia : ' + ADOQuery1.Fields[1].AsString);
                   ListBox1.Items.Add('Nombre de Ciudad :' + ADOQuery1.Fields[2].AsString);
                   //ListBox1.Items.Add('Codigo Postal :' +ADOQuery1.Fields[3].AsString;
                   ListBox1.Items.Add('----------------------------');
                   ADOQuery1.Next;
                End;