Hallo miteinander
Habe mich immer über Exceptions bei einer
Gleitkommakonvertierung geärgert, wenn als Dezimalzeichen
nicht das voreingestellte Dezimalzeichen des Systems verwendet wurde.
Diese ändert sich je nach Ländereinstellung, z.B. Deutsch(...) oder Englisch(...).
siehe: Start / Einstellungen / Systemeinstellungen / Regions- und Sprachoptionen / Regionale Einstellungen
Durch Klick auf [Anpassen] / Zahlen / Dezimaltrennzeichen kann es seperat geändert werden.
Also verwende ich statt SysUtils.StrToFloat meine eigene Konvertierungsroutine
StrToFloat2.
Damit sollten alle Programme, die Gleitkommakonvertierungen enthalten, mit beliebiger Ländereinstellung funktionieren!
Delphi-Quellcode:
uses SysUtils;
var wrongDecimalSeperator: char;
// opposite of system decimal seperator
//*********************************************************
// convert float string with dot notation to float value
// note: wrong decimal char will be replaced system decimal char
// to prevent an exception !!!
// input: floatStr: string float string
// example: 123 11.0 -2,2 +3.33 -1.2E+045 are valid float values
//---------------------------------------------------------
function StrToFloat2 (floatStr:
string; defValue: float = 0.0): Extended;
var
cv: integer;
begin
result := defValue;
try
if floatStr = '
'
then exit;
// replace '.' or ',' to system decimal separator
cv := pos (wrongDecimalSeperator, floatStr);
if cv > 0
then floatStr[cv] := SysUtils.DecimalSeparator;
result := SysUtils.StrToFloat(floatStr);
except
end;
end;
//---------------------------------------------------------
var floatValue: float;
procedure Test1;
// test float conversion
begin
floatValue := StrToFloat2 ('
1.000');
floatValue := StrToFloat2 ('
-2.22');
floatValue := StrToFloat2 ('
+3.33');
floatValue := StrToFloat2 ('
444');
floatValue := StrToFloat2 ('
1234567890123456789');
floatValue := StrToFloat2 ('
-1.2E+45');
floatValue := StrToFloat2 ('
ABCD');
// 0.0
floatValue := StrToFloat2 ('
123,456ABCD');
// 123.456
floatValue := StrToFloat2 ('
no float');
// 0.0
floatValue := StrToFloat2 ('
+123.456+ABCD');
// exception!!!
floatValue := StrToFloat2 ('
-99.99+E999');
// exception!!!
end;
//---------------------------------------------------------
initialization
if SysUtils.DecimalSeparator = '
.'
then wrongDecimalSeperator := '
,'
else wrongDecimalSeperator := '
.';
Test1;
end.