Nach Dezimalzeichen (. oder ,) des Systems fragen. Wie?

[user0815]

Ich habe auch gesucht wie ich es umsetze & jetzt so gelöst.

Delphi-Quellcode:

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));
    end;
  except
    Result := StrToFloat(FloatToStr(0.0));
  end;
end;