stringgrid als Textdatei speichern

[Hartfrid Krause]

Noch kappt die Speicherung nur über ein memo-feld; es muss allerdings eine direkte Möglichkeit geben.
Bei mir sieht es wie folgt aus:

Delphi-Quellcode:

procedure tform13.SpeedButton2Click(Sender: TObject);
var i:integer;
s:string;
begin
 altfilename:=extractfilepath(application.ExeName); //altes dir funktioniert
 savedialog1.execute;
 memo1.lines.clear;
  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]]);
    memo1.lines.Add(s);
   end;
  end;
 memo1.lines.SaveToFile(savedialog1.Filename +'.txt');
 savedialog1.Free;
 chdir(altfilename);//wieder zurück;
end;

Ich möchte gerne, dass der Speicherprt frei gewählt werden kann