Für die Stelligkeit kannst Du
Zitat:
Result := Format('%.2f %s', [_size, s]);
in
Result := Format('%f %s', [_size, s]);
ändern. Für das Dezimal- bzw. Tausendertrennzeichen könntest Du einen weiteren Parameter definieren. Dann musst Du aber innerhalb der Funktion entsprechende TFormatSettings deklarieren und diese in der Überladung der Format-Funktion mit übergeben.
[edit] Ich sehe gerade: Delphi 5, stimmt das? Falls ja, klappt das nicht so wie beschrieben, dann müsstest Du die globale Variable Decimalseparator manipulieren, aber bitte vorher Wert sichern und zum Schluss wiederherstellen. [/edit]