Also erstmal das ist mein Code:
Delphi-Quellcode:
procedure TForm1.FakultaetButtonClick(Sender: TObject);
var fakultaeteingabe, fakultaetausgabe, Zahl : integer;
begin
zahl := 1;
fakultaeteingabe := StrToInt(FakultaetEingabeEdit.Text);
if fakultaeteingabe = 0 then fakultaetausgabe := 1 else
repeat
fakultaetausgabe := fakultaetausgabe * zahl;
zahl := zahl +1;
until zahl = fakultaeteingabe;
FakultaetAusgabeEdit.Text := IntToStr(fakultaetausgabe);
end;
Und ich hab folgendes Problem, wenn ich nun eine Eingabe mache, zb. "2" dann erhalte ich als Erebnis "4356056".
Woran kann das liegen, irgendwie steh ich aufm Schlauch?