DBGrid an Memo übergeben

[Helld_River]

Hi !
Ich weiss jetzt nicht, ob ich dich richtig verstanden habe:
Du möchtest einfach die Felder, welche Du in eine DBGrid angezeigt bekommst der REihe nach in ein Memo schreiben, richtig ?

Also:
Ich habe mal
- ein Memo
- eine Table
- eine DataSource
- ein DBGrid
auf meinem Formular.

Alles miteinander verknüpft !(denke, da brauche ich jetzt nicht näher darauf einzugehen, oder?)

Hier der Code zum schreiben der Daten aus dem DBGrid in das Memo:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
    str : string;
begin
  Table1.First;
  while not(Table1.eof) do
  begin
    str:='';
    for x := 0 to DBGrid1.FieldCount-1 do
    begin
      str:=str+DBGrid1.Fields[x].AsString+';';
    end;
    Memo1.Lines.Add(str);
    Table1.Next;
  end;
end;

Hoffe, das hilft dir weiter !

Gruß, Helld