diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2010-03-22 22:36:36 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2010-03-22 22:36:36 +0100 |
| commit | b35b69c607ad661206f3c49e3a4a6e36e1d34c6f (patch) | |
| tree | 01b11c99094f70ee224f377957e9eb0f21675545 /UCoreUtils.pas | |
| parent | 2ef485ec4f51c9fe7fb9fa99511db3960812cfd0 (diff) | |
| download | tuxcmd-b35b69c607ad661206f3c49e3a4a6e36e1d34c6f.tar.xz | |
Fix wrong size displayed when format set to system
Fixes bug 2974194
http://sourceforge.net/tracker/?func=detail&atid=515901&aid=2974194&group_id=66829
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index d65eed4..304e7a8 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -166,7 +166,7 @@ begin if f < 0 then f := ConfSizeFormat; case f of 0 : begin // System default formatting - p := g_strdup_printf('%''lu', Int64(Value div Base)); + p := g_strdup_printf('%''llu', Int64(Value div Base)); if p = nil then begin DebugMsg(['FormatSize(0): sprintf() failed, using old format function.']); Result := FormatFloat('###,###,##0', Value div Base); |