TQuery, Ausgabe in TMemo

[gi_networx]

Hi an alle,

ich bin hier langsam am verzweifeln. Ich versuche das Ergebnis einer Query mit TQuery in ein Memo auszugeben. Dazu habe ich folgenden Code erstellt:

Delphi-Quellcode:

  while not query1.Eof do
  begin
     outstr := '';
     for i:= 0 to (query1.Fieldlist.Count-1) do
     begin
       outstr := outstr + query1.Fields[i].AsString;
     end;
     memo2.lines.add(outstr);
     Query1.Next;
  end;

Mit diesem Code fügt er jeweils nur den Wert des ersten Feldes der aktuellen Zeile plus jede Menge Leerzeichen in das Memo ein. Verwende ich in der Schleife hingegen:

Delphi-Quellcode:

memo2.Lines.Add(query1.Fields[i].AsString);

klappt es und ich bekomme den Wert des jeweiligen Feldes als neue Zeile im Memo. Ich möchte Die Werte aber alle zusammen in einem String sammeln. Warum klappt das hier nicht???

Viele Grüße

Michl

[DeddyH]

Hallo, habe nur eine Änderung drin und bei mir tut es.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
    outstring: string;
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM Gruppe');
  Query1.Open;
  Query1.First;
  while not Query1.EOF do
    begin
      outstring := '';
      for i := 0 to Query1.FieldCount - 1 do
        outstring := outstring + Query1.Fields[i].AsString + ';';
      Memo1.Lines.Add(outstring);
      Query1.Next;
    end;
end;

[DeddyH]

Wobei das auch ohne die Änderung tut, stelle ich gerade fest. :gruebel: