StrToFloat Exception bei Konvertierung mittels ',' oder '.'

**mrpix777**

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!

zusammenfalten · markieren

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.

StrToFloat Exception bei Konvertierung mittels ',' oder '.'

StrToFloat Exception bei Konvertierung mittels ',' oder '.'

Forumregeln