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 :

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 ?

[Luckie]

Ist auf deinem System Punkt oder Komma das Dezimaltrennzeichen?

[Neutral General]

Ich glaube Punkt Wieso ? Ist das wichtig ?

[Sharky]

Zitat von Neutral General:

....die Fehlermeldung "4.00000 ist keine gültige Fließkommazahl" ...

Du machst "nichts" falsch. Delphi geht aber von einem anderen Dezimalzeichen aus als es bei deinem Betriebsystem eingestellt ist. In Deuschland ist es ein "," in Delphi ein ".".
Also einfach dem Programm temporär einen anderen DecimalSeperator zuweisen.
Alternativ kannst Du auch mal TFormatSettings ansehen.

Delphi-Quellcode:

function Wurzel(Zahl4:Real) : Extended;
var
Temp : String;
ch_tmp : Char;
begin
   Str(Sqrt(Zahl4):5:4, Temp);
   ch_tmp := DecimalSeparator;
   DecimalSeparator := '.';
   Zahl4 := Zahl4 + StrToFloat(Temp);
   DecimalSeparator := ch_tmp;
   Wurzel := Zahl4;
end;

[Neutral General]

Ä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;

[Sharky]

Zitat von Neutral General:

...Wieso wird jetzt das Ergebnis so verfälscht ?

Weil Du es so programmiert hast

Zahl4 := Zahl4 + StrToFloat(Temp); Du addierst ja die Wurzel (in temp) zu deiner Zahl.

Richtig wäre also:

Delphi-Quellcode:

function Wurzel(Zahl4:Real) : Extended;
var
Temp : String;
ch_tmp : Char;
begin
   Str(Sqrt(Zahl4):5:4, Temp);
   ch_tmp := DecimalSeparator;
   DecimalSeparator := '.';
   result := StrToFloat(Temp);
   DecimalSeparator := ch_tmp;
end;

Aber warum überhaupt so kompiliert?

Delphi-Quellcode:

function Wurzel(Zahl4:Real) : Extended;
begin
  result := Sqrt(Zahl4);
end;

[Neutral General]

Zitat:

Aber warum überhaupt so kompiliert?

Weil ich die Funktion für Wurzeln nicht kannte und dann hab ich in der Delphi Hilfe nachgeschaut (F1) und da hat dann so was kompliziertes gestanden !
Danke nochmal !