Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
1. Feb 2018
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);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
1. Feb 2018
procedure TForm1.btn1Click(Sender: TObject);
var Add : TAddition;
begin
// Du erstellst eine Instanz von TAddition,
Add:=TAddition.Create;
try
// übernimmst die erste Zahl aus der Eingabe,
Add.Zahl1 := StrToIntDef(edtZahl1.text,0);
// übernimmst die zweite Zahl aus der Eingabe,
Add.Zahl2 := StrToIntDef(EdtZahl2.Text, 0);