Einzelnen Beitrag anzeigen

EdAdvokat

Registriert seit: 1. Mai 2016
Ort: Berlin
419 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Aufrechnen von Integer-Werten in ein neues Ergebnis

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