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