Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
28. Mär 2010
procedure TForm1.Button1Click(Sender: TObject);
var x,eingabe :extended;
I :integer;
begin
x:=0;
eingabe:=StrtoFloat(Edit1.Text);
for I := 1 to 100000 do begin
x:=x+(1/i);
if x>eingabe then begin
Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
28. Mär 2010
"fertig" wurde auch nicht initialisiert (false)
"x" hast du schon bemerkt
"i" ist nach Schleifendurchlauf undefiniert
Wobei diese beiden Initialisierungsfehler "x" und "fertig", sowie das undefinierte "i" eigentlich von Delphi hätten beängelt werden sollten. :gruebel:
Wenn ich dann alles Kürze, dann komm ich auf dieses:
procedure TForm1.Button1Click(Sender: TObject);
var eingabe:...