Aufrechnen von Integer-Werten in ein neues Ergebnis

[Delphi.Narium]

Delphi-Quellcode:

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);
    // addierst die beiden Zahlen,
    Add.Addition;
    // gibst das Ergebnis aus,
    LblErgebnis.Caption := IntToStr(Add.Ergebnis);
    // rechnest zu einer nicht initialisierten Summe dazu
    Add.aufrechnen(add.Ergebnis);
    // gibst diese aus
    lblAufrechnung.caption:=inttostr(add.Ergebnisaufrechnen);
  finally
    // und wirfts alles wieder weg.
    FreeAndNil(Add);
  end;
end;

Beim nächsten btn1Click geht es von vorne los.

Die dann erstellte Instanz von TAddition kennt natürlich das Ergebnis der vorherigen Aufrechnung in FAufrechnung nicht, da die vorherige Instanz ja verworfen wurde.

Du müsstest dann zumindest das Ergebnis der Aufrechnung wieder aus der Anzeige in die beim Klick erstellte Instanz übernehmen.

Oder Dir überlegen, ob es wirklich sinnvoll ist, TAddition vor jeder Addition neu zu erstellen und nach der Addition zu verwerfen, wenn Du das Ergebnis nachher noch weiterverarbeiten willst.