stringgrid als Textdatei speichern

[p80286]

Delphi-Quellcode:

var i:integer;
s:string;
sl : tStringlist;
begin
  if SaveDialog1.execute then begin
    sl:=tstringlist.create;
    with stringgrid1 do
    begin
      for i := 0 to rowcount-1 do
      begin
        s := Format('%-20s %-16s %-10s %-10s', [Cells[0,i], Cells[1,i], Cells[2,i], Cells[3,i]]);
        sl.add(s);
      end;
    end;
    sl.SaveToFile(SaveDialog1.Filename );
    sl.free;
  end;
end;

Ich denke so sollte es funktionieren.

Gruß
K-H