Kann man diese Prozedure besser machen?

[Jürgen Thomas]

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