|
Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
Delphi 7 Architect
|
Re: For Schleife
5. Jan 2006, 15:53
herzlich willkommen bei dp
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
zahl1:= strtoint(edit1.text);
ergebnis:=1;
for i:= 2 to zahl1 do
ergebnis:=ergebnis*i;
edit3.Text:= inttostr(eregbnis);
end;
end.
..den ersten gibts gratis 
|