Ähm ... danke es funktioniert zwar aber ich bekomme wenn ich in das Edit-Feld 16 Eingebe 20 heraus !
Soweit ich weis ist aber die Wurzel aus 16 4 oder ?
Wieso wird jetzt das Ergebnis so verfälscht ?
Ok ich weis jetzt was Delphi macht er Addiert die Wurzel der Zahl zu der Zahl (Wurzel(16) + 16) = 20
Aber wieso ?
OK ich habs :
Code:
procedure TForm1.Button4Click(Sender: TObject);
var ZahlW : Extended;
Edit1Temp : String;
begin
Edit1Temp := Edit1.Text;
ZahlW := Wurzel(StrToFloat(Edit1.Text)) - StrToFloat(Edit1Temp);
Edit1.Text := FloatToStr(ZahlW);
end;