String nach Double?

[Rollo62]

Dann schon besser so ...

Delphi-Quellcode:

function StrToFloatD(AStr : string; ADef : double = 0):double;
begin
  if      '.' = DecimalSeparator then
    AStr := StringReplace(AStr,',',DecimalSeparator,[])
  else if ',' = DecimalSeparator then
    AStr := StringReplace(AStr,'.',DecimalSeparator,[])
  else
    EXception; // das sollte nie passieren, oder gibt es doch solche Länder ?
  result := StrToFloatDef(AStr,ADef);
end;