opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add support for TeraByte and PetaByte in FormatByteNumber.

Browse Source 
Overcomes a "E2099 Overflow in conversion or arithmetic operation" compiler error by using constants instead of calculating the limits.
This commit is contained in:
Ansgar Becker
2007-08-31 00:03:55 +00:00
parent 8ab0b95440
commit 40c41d3cbe
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/helpers.pas
View File

@ -1956,12 +1956,20 @@ end;
}
function FormatByteNumber( Bytes: Int64; Decimals: Byte = 1 ): String; Overload;
const
KB = 1024;
{KiloByte} KB = 1024;
{MegaByte} MB = 1048576;
{GigaByte} GB = 1073741824;
{TeraByte} TB = 1099511627776;
{PetaByte} PB = 1125899906842624;
begin
if Bytes >= KB *KB *KB then
Result := FormatNumber( Bytes / (KB *KB *KB), Decimals ) + ' GB'
else if Bytes >= KB *KB then
Result := FormatNumber( Bytes / (KB *KB), Decimals ) + ' MB'
if Bytes >= PB then
Result := FormatNumber( Bytes / PB, Decimals ) + ' PB'
else if Bytes >= TB then
Result := FormatNumber( Bytes / TB, Decimals ) + ' TB'
else if Bytes >= GB then
Result := FormatNumber( Bytes / GB, Decimals ) + ' GB'
else if Bytes >= MB then
Result := FormatNumber( Bytes / MB, Decimals ) + ' MB'
else if Bytes >= KB then
Result := FormatNumber( Bytes / KB, Decimals ) + ' KB'
else