Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.418 Beiträge
 
Delphi 7 Professional
 
#10

AW: Aufrechnen von Integer-Werten in ein neues Ergebnis

  Alt 1. Feb 2018, 19: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.
  Mit Zitat antworten Zitat