Einzelnen Beitrag anzeigen

newgro

Registriert seit: 26. Mär 2007
53 Beiträge
 
Delphi 2006 Professional
 
#17

Re: Fehler bei StrToFloat(StrAlsIntegerFormatiert)

  Alt 16. Apr 2007, 16:50
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.
  Mit Zitat antworten Zitat