TQuery, Ausgabe in TMemo

[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;