vom einem TDBGrid eine ganze Zeile in einem TMemo kopieren?

[smart]

Wie kann man vom einem TDBGrid eine ganze Zeile in einem TMemo kopieren?

[Luciano]

Hi,

versuche dir die Daten doch aus deiner Query/Table in das Memo zu schreiben und nicht aus dem DBGrid, das DBGrid ist doch nur ein Fenster das in deine Datenbank schaut.

Greets

[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

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

[mschaefer]

Moin, moin

so als Anmerkung, wenn zwischen den Feldernwerten ein Trennzeichen (z.B.: #9) eingefügt wird,
dann geht auch der umgekehrte Weg später,also das Importieren einer Zeile aus dem Memo.

Grüße // Martin