Naja, das mit dem SaveToFile mache ich ja noch so:
Delphi-Quellcode:
try
//if Saved then exit;
if FileExists(Fn) then
begin
//SynMemo1.Lines.SaveToFile(Fn);
FActiveMemo.Lines.SaveToFile(Fn);
Saved := True;
ShortFn := ExtractFilename(Fn);
SetCompleteCaption;
TBXStatusBar1.Panels[3].Caption := '';
end else
begin
TBXItem3Click(self);
TBXItem2.Enabled := False;
TBXItem42.Enabled := False;
TBXStatusBar1.Panels[3].Caption := '';
end;
except
//
end;
Erkl.: Wenn Datei zuvor nicht "gespeichert" wurde (Fn also nicht existiert),
wird TBXItem3Click(self); ausgeführt.
Da steht drin, dass ein SaveDialog geöffnet werden soll...
Anderenfalls wird FActiveMemo.Lines.SaveToFile(Fn); ausgeführt.
Leider ist dann aber Fn immer das gleich wie zuvor
