Open-SaveTextFileDialog - beim Öffnen im selben Ordner

[Codix32]

Danke euch, himitsu und Ralf Kaiser,

manchmal ist es das ganz Einfache, was man übersieht:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
SaveTextFileDialog1.InitialDir:=extractfilepath(OpenTextFileDialog1.FileName);
 if SaveTextFileDialog1.Execute then
...
...

Dasselbe nochmal für SaveTextFileDialog2 und schon habe ich, was ich wollte.