Fehler bei StrToFloat(StrAlsIntegerFormatiert)

[newgro]

Im Debug Inspector steht
value '1.274.847'

[newgro]

Ja, ok. Deshalb auch der Betreff. Kann ich denn mit Delphi aus einem IntegerString ein Float machen?

[mkinzler]

Dann setzte doch das Format kurzzeitig um:

Delphi-Quellcode:

ThousandSeparator = '.';
toFormat:= StrToFloat(value);

[newgro]

Gesagt, getan. Und wieder der FormatError.

[mkinzler]

Schon die überladene StrToFloat mit Format versucht?

[newgro]

Hatte

Delphi-Quellcode:

function Tfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
f: TFormatSettings;
begin
  if value = '' then
    toFormat:= 0
  else begin
    f.ThousandSeparator:= '.';
    f.DecimalSeparator:= ',';
    toFormat:= StrToFloat(value, f);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

probiert und es ging nicht.

[newgro]

Habe ein bischen weiter geforscht und dabei heraus bekommen, das es tatsächlich am TausenderTrennzeichen liegt.
Aber wie kann ich den . nun löschen? So wie ich es mache geht es nicht:

Delphi-Quellcode:

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
    i: Integer;
    str: String;
    f: TFormatSettings;
begin
  if value = '' then
    toFormat:= 0
  else begin
    for i := 0 to length(value) do
    begin
      v:= ;
      if (value[i] <> f.ThousandSeparator) then
      begin
       str:= str + value[i];
      end;
    end;
    toFormat:= StrToFloat(str);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

So steht trotzdem der Punkt (TausenderTrenner) drin.

[mkinzler]

StringReplace()

[newgro]

Delphi-Quellcode:

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
    i: Integer;
    str: String;
    f: TFormatSettings;
begin
  if value = '' then
    toFormat:= 0
  else begin
    str:= StringReplace(value, f.ThousandSeparator, '', [rfReplaceAll]);
    toFormat:= StrToFloat(str);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

Und wieder der Fehler. Aber er ersetzt nicht den ThousendSeparator. Muss ich den irgendwie umwandeln?

Danke
Per

[mkinzler]

str:= StringReplace(value, '.', '', [rfReplaceAll]);