Ich hab jetzt die Auswertung in die Schleife verlegt, aber jetzt sagt er bei jeder Zahl dass sie nicht erreicht werden konnte
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var X,eingabe :extended;
I :integer;
fertig:boolean;
begin
x:=0;
eingabe:=StrtoFloat(Edit1.Text);
for I := 1 to 100000 do begin
x:=x+(1/i);
if x>eingabe then begin
break;
Edit1.Text:=('Die eingabe wurde überschritten. Summationen:');
Edit2.Text:=(IntToStr(i));
end else Edit1.Text:=('Die Zahl wurde nicht erreicht, da die Berechnung nach 100000 Summationen abgebrochen wurde.');
end;
end;