So funktioniert es auf jeden Fall:
Delphi-Quellcode:
procedure TForm2.Speichernals1Click(Sender: TObject); // Datei|Speichern als
begin
SaveDialog1.FileName := pfad;
if SaveDialog1.Execute then
begin
Pfad := SaveDialog1.FileName;
Caption := ExtractFileName(pfad);
case SaveDialog1.FilterIndex of
1 : SynEdit1.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.txt'));
2 : ..................
Das Problem ist, dass das einfache Speichern danach nicht funzt (erstellt eine neue Datei
ohne Endung), oder was meinst du?