Ver Mensaje Individual
  #2  
Antiguo 13-04-2012
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.231
Reputación: 20
ElKurgan Va camino a la fama
A este procedimiento le pasas la consulta y un Tstrings, que puede ser un TstringList como "Memo1.Lines"

Código Delphi [-]
procedure MostrarDatos(Consulta: TDataset; Lista: Tstrings);
var
  i: Integer;
  Linea: string;
begin
  Consulta.First;
  While not Consulta.Eof do
  begin
    Linea := '';
     For i := 0 to Consulta.FieldCount - 1 do
      Linea := Linea + ' ' + Consulta.Fields[i];
    Lista.Add(Linea)
    Consulta.Next;
  end;
end;

Espero que te sirva.
Un saludo
Responder Con Cita