4.00000 kein gültiger Fließkommawert ?

**Neutral General**

Ich habe eine function die Wurzeln berechnen soll :

Code:

			function Wurzel(Zahl4:Real) : Extended;

var Temp : String;

begin 

   Str(Sqrt(Zahl4):5:4, Temp);

   Zahl4 := Zahl4 + StrToFloat(Temp);

   Wurzel := Zahl4;

end;

und ich habe einen Button und ein Edit Feld :

markieren

Code:

			procedure TForm1.Button4Click(Sender: TObject);

var ZahlW : Extended;

begin

  ZahlW := Wurzel(StrToFloat(Edit1.Text));

  Edit1.Text := FloatToStr(ZahlW);

end;

Das Programm startet auch aber wenn ich dann in das Edit-Feld z.B 16 eingebe und dann auf den Wurzel Button klicke kommt die Fehlermeldung "4.00000 ist keine gültige Fließkommazahl" !

Was mache ich da nur falsch ?

4.00000 kein gültiger Fließkommawert ?

4.00000 kein gültiger Fließkommawert ?

Forumregeln