vom einem TDBGrid eine ganze Zeile in einem TMemo kopieren?

[smart]

Vielen Dank für die Mühe! Ich habe dann selbst auch noch eine Lösung gefunden

Delphi-Quellcode:

Var
i,j:Integer;
s:String;
begin
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.DataSource.DataSet.RecordCount -1 do
    Begin
        s:='';
        for j := 0 to  FieldCount-1 do
        begin
          if (j>0) then s:=s+'; ';
          s:=s+Fields[j].AsString;
        end;
    Form1.Memo2.Lines.Add(s);
    DBGrid1.DataSource.DataSet.next;
   end;