Ich würde auch dringend empfehlen so eine Routine nicht im "ButtonxxOnClick" zu schreiben.
Delphi-Quellcode:
procedure TuWas( Parameter : TIrgendwas );
begin
// Code zur Übernahme der Weltherrschaft
end;
Delphi-Quellcode:
procedure TForm1.DerSuperSpezialButton1OnClick( Sender : TObject );
begin
TuWas( GanzTolles );
end;
procedure TForm1.DerSuperSpezialButton2OnClick( Sender : TObject );
begin
TuWas( GanzDoofes );
end;
Vorteil:
- Trennung der
GUI von der Logik
- Der Code bleibt übersichtlicher
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)