Registriert seit: 27. Nov 2017
2.508 Beiträge
Delphi 7 Professional
|
AW: Aufrechnen von Integer-Werten in ein neues Ergebnis
1. Feb 2018, 20:47
Wenn Du Zahl1 und Zahl2 aus 'nem Edit übernehmen kannst, kannst Du doch wohl auch Aufrechnung aus der Caption des Labels übernehmen.
Add.Zahl1 := StrToIntDef(edtZahl1.text,0);
angepasst für die Aufrechnung
Add.Ergebnisaufrechnen := StrToIntDef(lblAufrechnung.caption,0);
Und nein, die Lösung ist weder optimal noch irgendwie objektorientiert.
In dem Fall ist eine eigene Klasse für die Addition und die Aufrechnung überflüssig.
Überleg Dir bitte nochmal, was Du genau erreichen willst und ob es nicht eventuell sinnvoller ist, die Instanz von TAddition im Create des Formulares zu erstellen und beim Schließen des Formulares wieder freizugeben.
Dann bleiben die Zwischenergebnisse erhalten und die Klasse ließe sich auch um weitere Berechnungsmodalitäten erweitern. Die Anzeigemöglichkeiten im Formular müssen dann nicht als Zwischenspeicher für die Datenhaltung dienen.
|