Hallo Peter,
Zitat von
PeterKiers:
Kann man diese Prozedure besser machen?
Ja. Wenn Du Dir Deinen Code ansiehst, dann stellst Du fest, dass Du mehrere Abschnitte mehrfach verwendest.
Du solltest also
erstens neu gruppieren:
Delphi-Quellcode:
if IsModified then
begin
if MessageDlg = mrYes then
begin
try
Save1Click(Sender);
except
end;
// bei Fehler oder mrCancel Abbruch
end;
end;
// und jetzt alles für den neuen OpenDialog1
Zweitens solltest Du alles, was nicht unmittelbar mit einem Ereignis zusammenhängt, sondern eigenständige Maßnahmen sind, in eigene Prozeduren verlagern. Dann kannst Du solche Maßnahmen von mehreren Stellen - z.B. dem Button Save1 - aus aufrufen, bist insgesamt flexibler und programmierst übersichtlicher.
Viel Erfolg! Jürgen