Harmonische Reihe - "Ungültige Gleitkommaoperation"??

[himitsu]

"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.

Wenn ich dann alles Kürze, dann komm ich auf dieses:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var eingabe: Extended;
  i: Integer;
begin
  eingabe := StrToFloat(Edit1.Text);  
  if eingabe < 11.0901461298634 then begin 
    Edit1.Text := 'Die eingabe wurde überschritten. Summationen:';
    Edit2.Text := IntToStr(i);  // i ist nicht initialisiert
  end else 
    Edit1.Text := 'Die Zahl wurde nicht erreicht, da die Berechnung nach '
      + '100000 Summationen abgebrochen wurde.');
end;

Entweder du prüfst in einer While- oder Repeat-Schleife und brichts bei erfolgreichem Vergleich die Schleife ab
oder du merkst dir wenigstens den Wert von i (also innerhalb der For-Schleife)
oder du verlegst die Auswertung auch teilweise in die Schleife.