Ok, damit sieht dein ButtonOnClick so aus oder?
Delphi-Quellcode:
procedure TForm1.ButtonAdditionClick(Sender: TObject);
begin
FAddition.Zahl1 := StrToIntDef(EditZahl1.Text, 0);
FAddition.Zahl2 := StrToIntDef(EditZahl2.Text, 0);
FAddition.Addition;
LabelErgebnis.Caption := IntToStr(FAddition.Ergebnis);
end;
Dies sollte doch eigentlich auch vermieden werden, wegen Spaghetticode.
Nein, das sollte deshalb vermieden werden, weil das Form um himmels willen niemals im Leben nicht die Klasse TAddition kennen darf.
Es geht ja gerade darum, die Logik vom
GUI zu trennen. Deswegen darf die
GUI die Logik nicht kennen. Und die Logik das
GUI auch nicht.
Dazwischen muss etwas geschaltet werden, das als Vermittler agiert. Also z.B. klassisches MVC: Model (Logik), View (Form), Controller (kennt beides), der Controller fehlt hier komplett und wäre dann das, was die Logik-Klasse mit ihren Properties an die ein- bzw. Ausgabefelder am Form und die Ausführung der Methode an deren Button event bindet.