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;