ButtonClick Procedure aufrufen

[OsCor]

Das von mir jetzt verwendete CleanUpInstance funktioniert. Free nicht. Das war mir von den Stringlisten her aber geläufig.
Ich werde mir jetzt mal deinen Link vornehmen. Vielleicht finde ich da auch die Antwort zur Frage, warum Free hier nicht geht.

Oswald dankt!

[Luckie]

Wenn du die Routine zwei mal brauchst, lagere sie in eine Prozedur aus und ruf sie bei bedarf auf. Das wäre dann auch sauber programmiert.

[OsCor]

Inwiefern stellt das von mir benutzte Verfahren unsauberes Programmieren dar? Hat das was mit Clean Code zu tun? Ich lasse mir da gern was sagen.

Oswald

[DeddyH]

Was genau möchtest Du denn erreichen? Dass Eingabefelder etc. auf Standardwerte zurückgesetzt werden oder dass ein Button gedrückt wird? Wenn ein Außenstehender (oder man selbst nach einiger Zeit) über den Code schaut, dann könnte er auf so etwas stoßen:

Delphi-Quellcode:

procedure TDeinForm.SomeEvent(Sender: TObject);
begin
  SomeButtonClick(Sender);
end;

oder auf so etwas:

Delphi-Quellcode:

procedure TDeinForm.SomeEvent(Sender: TObject);
begin
  ResetToDefaults;
end;

Was erscheint logischer? Außerdem sollte man generell zwischen Ereignis und Methode unterscheiden: ein Ereignis ruft eine Methode auf (oder auch nicht), aber kein weiteres Ereignis.