vom einem TDBGrid eine ganze Zeile in einem TMemo kopieren?

[marabu]

Delphi-Quellcode:

procedure FieldsToLines(Query: TDataset; Lines: TStrings);
var
  i: integer;
  f: TField;
begin
  Lines.Clear;
  with Query do 
  for i := 0 to FieldCount - 1 do begin
    f := Fields[i];
    if f.DataType in [ftString, ftInteger, ...] then
      Lines.Values[f.FieldName] := f.AsString;
  end;
end;

marabu