Zitat von
Nils_13:
Mit
Delphi-Quellcode:
if FileExists(save.filename) then
edit.lines.savetofile(save.Filename)
else
save.Execute;
edit.Lines.SaveToFile(save.filename);
läufts, thx!
Bloß wenn man auf Abbrechen klickt gibt es einen Fehler: "Datei kann nicht erstellt werden", kann man den umgehen?
Hi Nils,
da ist noch ein kleiner Fehler drin.
Delphi-Quellcode:
if FileExists(save.filename) then
edit.lines.savetofile(save.Filename)
else
begin
save.Execute;
edit.Lines.SaveToFile(save.filename);
end;
Ohne das begin..end nach dem Else wird
edit.lines.savetofile(save.filename) Immer ausgeführt auch wenn bei der If true rauskommt!