Aufrechnen von Integer-Werten in ein neues Ergebnis

**EdAdvokat**

ich möchte die Ergebnisse einer einfachen Additionen (FErgebnis:int32) in einem neuen Ergenis(FAufrechnung:int32) speichern
und ausgeben. Also Ergebnis von 11 + 9 soll zunächst mit 20 in FErgebnis angezeigt werden und dann will ich nochmals 6+6 addieren und das
Ergebnis von 12 soll zu den 20 dazuadditert werden und im Ergebnisoutput mit 32 erscheinen. Dies soll sooft addiert werden, wie
ich eine neue Summe bilde.
Irgenwie komme ich da nicht weiter. Sicher mache ich da nur einen einfachen Fehler.
anbei meine Versuche:
Logic:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TAddition = class

  private

    FZahl1 : integer;

    FZahl2 : integer;

    FErgebnis: Integer;

    FAufrechnung: int32;

  public

    procedure Addition;

    procedure aufrechnen(fErgebnis:int32);

    property Zahl1: Integer read FZahl1 write FZahl1;

    property Zahl2: Integer read FZahl2 write FZahl2;

    property Ergebnis: Integer read FErgebnis;

    property Ergebnisaufrechnen : int32 read FAufrechnung ;

  end;

implementation

{ TAddition }

procedure TAddition.Addition;

begin

  FErgebnis:=FZahl1+FZahl2;

end;

procedure TAddition.aufrechnen(Fergebnis:int32);

begin

  FAufrechnung:= Faufrechnung + FErgebnis ;

end;

end.

nun die Form:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.btn1Click(Sender: TObject);

var Add : TAddition;

begin

  Add:=TAddition.Create;

  try

    Add.Zahl1 := StrToIntDef(edtZahl1.text,0);

    Add.Zahl2 := StrToIntDef(EdtZahl2.Text, 0);

    Add.Addition;

    LblErgebnis.Caption := IntToStr(Add.Ergebnis);

    Add.aufrechnen(add.Ergebnis);

    lblAufrechnung.caption:=inttostr(add.Ergebnisaufrechnen);

  finally

    FreeAndNil(Add);

  end;

end;

Aufrechnen von Integer-Werten in ein neues Ergebnis

Aufrechnen von Integer-Werten in ein neues Ergebnis

Forumregeln