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 :
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 ?