Delphi-PRAXiS - Delphi FormatFloat Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi FormatFloat Problem (https://www.delphipraxis.net/57419-formatfloat-problem.html)

FormatFloat Problem

Hallo!
Ich habe ein riesiges Problem.
Ich schreibe in ein Stringgrid eine Real-Zahl formatiert mit Formatfloat (FormatFloat('###,##0.00',Zahl)).
Dies funktioniert ja auch super. Danach lasse ich diese Zahlen addieren. Dies funktioniert auch noch super.
Nur wenn die oben eingegebene Real Zahl größer als 1000 ist, dann kommt beim addieren ein Fehler.

Fehlermeldung: 1.000,00 ist kein gültiger Gleitkommawert.

Wie bekomme ich das Formatfloat zurück, sodass kein "." in der Zahl ist?

Code:

			StringGrid1.Cells[5,zahl] := FormatFloat('###,##0.00',l);

.........

d:=0;

For p:= 1 to X do     //Gesamt

begin

     d:= d + StrToFloat(StringGrid1.Cells[5,p]);

end;

Vielen Dank im Voraus!

gruß

w-lan

Re: FormatFloat Problem

Hai w-lan,

der Fehlter kommt dadruch das StrToFloag mit dem Tausendertrennzeichen "." nicht anfangen kann.
Du kannst jetzt jetzt mal Delphi-Referenz durchsuchen

StrToFloatDef ansehen oder das Trennzeichen einfach vor der Konvertierung aus dem String entfernen.

Delphi-Quellcode:

			d:= d +  StrToFloat(StringReplace(StringGrid1.Cells[5,p],ThousandSeparator,'',[rfReplaceAll]));
		