StrToFloat -> Wahnsinn kurz bevorstehend!

[DeddyH]

Unter Delphi 2007 funktioniert es bei mir so:

Delphi-Quellcode:

procedure TfrmTest.btnTestClick(Sender: TObject);
const Zahl = '12.345,67';
var bla: double;
    fmtSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  fmtSettings.DecimalSeparator := ',';
  fmtSettings.ThousandSeparator := '.';
  bla := StrToFloat(StringReplace(trim(Zahl),fmtSettings.ThousandSeparator,'',[rfReplaceAll]));
  ShowMessage(Format('%f',[bla]));
end;