FormatFileSize

[MicMic]

Ich hab jetzt:

Code:

fs := TFormatSettings.Create;
fs.DecimalSeparator := '.';
result := Format('%s %s', [FormatFloat('0.##', _size, fs), s]);

.free brauch ich ja hier nicht (verwirrt mich immer). So habe ich den "Punkt" und wenn ich ein Komma haben möchte mach ich dann natürlich "fs.DecimalSeparator := ',';".
Je nach dem wo der Code steht, muss man noch "Application.UpdateFormatSettings := false;" setzen, da sonst bei "WM_WININICHANGE" oder "RM_TaskbarCreated" die FormatSettings wieder überschrieben werden (hier im Forum in einem Thread gelesen). Nur mal so als Info.

Jetzt fragt sich nur noch wie ich dem "Format" beibringen kann, ob er auf/abrunden soll. Es wird ja aufgerundet.

Zitat:

MiB ist richtig, MB ist falsch.
1148928 Bytes sind ungerundet 1,09 MiB. Gerundet 1,1 MiB.

1,0957031 = 1,09 (kann man jetzt als abrunden oder abschneiden sehen). Also sollte man in diesen Fällen (Anzeige von Dateigrößen) dann nicht aufrunden? Also wie Windows es machen?

Michael

P.s. Der Total-Commander gibt beispielsweise "1,0 M" zurück. Jeder macht's anders. Da weiß man gar nicht, welcher Weg der richtige ist.