Ich habe gerade kein Delphi, aber klappt "#,0" als Formatierungsparameter nicht?
Und wenn das nicht geht, vielleicht eine eigene kleine Routine?
Delphi-Quellcode:
Function ExtendedToString(v : Extended; ThousandSeparator : Char) : String;
var
i,d : Integer;
Begin
result :='';
i:=0;
while v>0.01 do begin
d := Int(0.5+frac(v/10)*10);
v := Trunc(v/10);
Result := IntToStr(d)+Result;
inc(i);
if i mod 3=2 then
Result := ThousandsSeparator+Result;
end;
end;
Ungetestet.
'Int' soll den Nachkommaanteil abschnippeln und einen Integer liefern.
'Frac' soll nur den Nachkommaanteil liefern
'Trunc' soll den Nachkommaanteil abschnippeln und einen Extended liefern.