GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-09-19 09:46:09 +00:00
Code Issues Projects Releases Wiki Activity

Added: Format parameter to FormatSize

Browse Source
This commit is contained in:
Mark van Renswoude 2005-11-30 18:17:03 +00:00
parent ee148afa98
commit 191f1cf03c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
X2UtStrings.pas
View File

@ -17,9 +17,12 @@ type
* @param AKeepBytes if true, only decimal separators will be added and * @param AKeepBytes if true, only decimal separators will be added and
* the text 'bytes' appended. If False, a suitable unit * the text 'bytes' appended. If False, a suitable unit
* will be chosen (KB, MB, GB). * will be chosen (KB, MB, GB).
* @param AFormat the format used for the output, see the Delphi Help for
* FormatFloat.
* @result the formatted size. * @result the formatted size.
*} *}
function FormatSize(const ABytes: Int64; AKeepBytes: Boolean = False): String; function FormatSize(const ABytes: Int64; AKeepBytes: Boolean = False;
const AFormat = ',0.##'): String;
{** Compares two strings without case sensitivity. {** Compares two strings without case sensitivity.
* *
@ -122,7 +125,8 @@ uses
SysUtils, SysUtils,
Windows; Windows;
function FormatSize(const ABytes: Int64; AKeepBytes: Boolean = False): String; function FormatSize(const ABytes: Int64; AKeepBytes: Boolean;
const AFormat: String): String;
const const
KB = 1024; KB = 1024;
MB = KB * 1024; MB = KB * 1024;
@ -151,7 +155,7 @@ begin
sExt := ' GB'; sExt := ' GB';
end; end;
Result := FormatFloat(',0.##', dSize) + sExt; Result := FormatFloat(AFormat, dSize) + sExt;
end; end;
function CompareTextL(const AMatch, AAgainst: String; function CompareTextL(const AMatch, AAgainst: String;