Fórum Todos os resultados de uma query em um memo como no msDOS #352364

procedure TfrmSQL.FormKeyPress(Sender: TObject; var Key: Char);
var comando, Scomando: string;
    i: integer;
begin
  if key = #13 then
      begin
         Memo1.Lines.Add(Edit1.text);
         Scomando:= Edit1.Text;
         Edit1.Text:= ´´;
         comando:= copy(Scomando, 0, 6);
         with dmDados.qryDataVida do
          begin
            close;
            sql.clear;
            sql.add(Scomando);
          end;
    if ((comando = ´update´ or comando = ´delete´) or comando = ´insert´) then
      dmDados.qryDataVida.ExecSQL
    else
      with dmDados do
      begin
       qryDataVida.Open;
       First;
       I := 0;    
       while not qryDataVida.Eof do
        begin
       (*
          Aqui você faz um for para inserir todos os campos da Query
          dentro do Memo com a Estrutura Nome_do_Campo: Dados do Campo
          *)
          for i := 0 qryDataVida.FieldsCount-1 do
           Memo1.Lines.Add(qryDataVida.Fields[i].FieldName + ´: ´+qryDataVida.Fields[i].AsString + ´ | ´);
       (*
          se você quizer somente os dados do campo, sem o nome do 
          mesmo, basta eliminar a primeira parte da linha no add...
          *)
//           Memo1.Lines.Add(qryDataVida.Fields[i].AsString + ´ | ´);
          QryDataVida.Next;
        end;   
    end;