Forum: Object-Pascal / Delphi-Language
Delphi
by user0815,
28. Mär 2008
& was mache ich wenn ich auf eine Benutzereingabe reagieren will?
FloatToStr(Edit.Text) wird wohl nicht gehen wenn der Anwender statt einem 12,3 ein 12.3 eingibt.
Genau für diesen Fall nehme ich die function.
function String_To_Double(Zahl : String) : Double;
begin
try
case DecimalSeparator of
Forum: Object-Pascal / Delphi-Language
Delphi
by user0815,
28. Mär 2008
Ich habe auch gesucht wie ich es umsetze & jetzt so gelöst.
function String_To_Double(Zahl : String) : Double;
begin
try
case DecimalSeparator of
'.' : Result := StrToFloat(StringReplace(Zahl, ',', DecimalSeparator, ));
',' : Result := StrToFloat(StringReplace(Zahl, '.', DecimalSeparator, ));
else Result := StrToFloat(FloatToStr(0.0));