Variant-Umwandlung in Single ergibt Integer?!

[marabu]

Guten Morgen Sven,

die Routinen zur Umwandlung von Varianten sind lokalisierte API Funktionen - sie verwenden die aktuellen locale settings des Systems, aber nicht die Einstellungen der Delphi Unit SysUtils. Bessere Chancen hast du mit Val():

Delphi-Quellcode:

function NativeStrToFloat(s: String): Extended;
var
  error: Integer;
begin
  Val(s, Result, error);
  if error > 0 then
    raise EConvertError.CreateFmt('invalid float format: %s', [s]);
end;

Getippt und nicht getestet.

Grüße vom marabu