Mostrar

[ecfisa]

Hola guillermohampp.

No sé con que BD ni que componentes estes trabajando, pero una forma sencilla de hacerlo es:

Código Delphi [-]
procedure TForm1.btMostrarClick(Sender: TObject);
var
  BM: TBookMarkStr;
begin
  with tabla_cab_nom do  // suponiendo que así se llame tu tabla
  begin
    BM:= BookMark;    // guardar posición actual de la tabla
    DisableControls;  // desactivar mostrar en controles asociados
    First;            // ir al primer elemento de la tabla 
    while not Eof do
    begin
      ListBox1.Items.Add(FieldByName('SOL').AsString+' - '+  // suponiendo que así se llamen tus campos
                         FieldByName('AGUA').AsString+' - '+
                         FieldByName('TIERRA').AsString);
      Next;   // siguiente registro
    end;
    BookMark:= BM;   // retornar a posición almacenada
    EnableControls;  // activar mostrar 
  end;
end;

Saludos.