This is a Port of ByteSize to Delphi/FreePascal.
TByteSize is a utility "record" that makes byte size representation in code easier by removing ambiguity of the value being represented.
TByteSize is to bytes what System.TimeSpan.TTimeSpan is to time.
This project was created using Delphi 10 Seattle Update 1 but should compile in any Delphi version from 2009 and FreePascal 3.0.0 Upwards.
Without TByteSize:
const
MaxFileSizeMBs = 1.5;
// I need it in KBs!
var
kilobytes: Double;
begin
kilobytes := MaxFileSizeMBs * 1024;
end;With ByteSize:
var
MaxFileSize: TByteSize;
begin
MaxFileSize := TByteSize.FromMegaBytes(1.5);
end;
// I have it in KBs!
MaxFileSize.KiloBytes;TByteSize behaves like any other record backed by a numerical value.
// Add
var
monthlyUsage, currentUsage, total, delta, : TByteSize;
begin
monthlyUsage := TByteSize.FromGigaBytes(10);
currentUsage := TByteSize.FromMegaBytes(512);
total := monthlyUsage + currentUsage;
total.Add(ByteSize.FromKiloBytes(10));
total.AddGigaBytes(10);
// Subtract
delta := total.Subtract(TByteSize.FromKiloBytes(10));
delta := delta - TByteSize.FromGigaBytes(100);
delta := delta.AddMegaBytes(-100);
end;You can create a ByteSize "object" from bits, bytes, kilobytes, megabytes, gigabytes, and terabytes.
TByteSize.Create(1.5); // Constructor takes in bytes
// Static Constructors
TByteSize.FromBits(10); // Bits are whole numbers only
TByteSize.FromBytes(1.5); // Same as constructor
TByteSize.FromKiloBytes(1.5);
TByteSize.FromMegaBytes(1.5);
TByteSize.FromGigaBytes(1.5);
TByteSize.FromTeraBytes(1.5);
TByteSize.FromPetaBytes(1.5);
A TByteSize "object" contains representations in bits, bytes, kilobytes, megabytes, gigabytes, terabytes and petabytes.
var
maxFileSize: TByteSize;
begin
maxFileSize := TByteSize.FromKiloBytes(10);
maxFileSize.Bits; // 81920
maxFileSize.Bytes; // 10240
maxFileSize.KiloBytes; // 10
maxFileSize.MegaBytes; // 0.009765625
maxFileSize.GigaBytes; // 9.53674316e-6
maxFileSize.TeraBytes; // 9.31322575e-9
end;A TByteSize "object" also contains two properties that represent the largest metric prefix symbol and value.
var
maxFileSize: TByteSize;
begin
maxFileSize := TByteSize.FromKiloBytes(10);
maxFileSize.LargestWholeNumberSymbol; // "KB"
maxFileSize.LargestWholeNumberValue; // 10
end;All String Parsing (String to TByteSize) operations are localized to use the number decimal separator of the currently set Locale.
TByteSize comes with a handy ToString method that uses the largest metric prefix whose value is greater than or equal to 1.
TByteSize.FromBits(7).ToString; // 7 b
TByteSize.FromBits(8).ToString; // 1 B
TByteSize.FromKiloBytes(.5).ToString; // 512 B
TByteSize.FromKiloBytes(1000).ToString; // 1000 KB
TByteSize.FromKiloBytes(1024).ToString; // 1 MB
TByteSize.FromGigabytes(.5).ToString; // 512 MB
TByteSize.FromGigabytes(1024).ToString; // 1 TBThe ToString method accepts a single string parameter to format the output. The formatter can contain the symbol of the value to display: b, B, KB, MB, GB, TB, PB. The formatter uses the built in FormatFloat method. The default number format is #.## which rounds the number to two decimal places.
You can include symbol and number formats.
var
b: TByteSize;
begin
b := TByteSize.FromKiloBytes(10.505);
// Default number format is #.##
b.ToString('KB'); // 10.52 KB
b.ToString('MB'); // .01 MB
b.ToString('b'); // 86057 b
// Default symbol is the largest metric prefix value >= 1
b.ToString('#.#'); // 10.5 KB
// All valid values of double.ToString(string format) are acceptable
b.ToString('0.0000'); // 10.5050 KB
b.ToString('000.00'); // 010.51 KB
// You can include number format and symbols
b.ToString('#.#### MB'); // .0103 MB
b.ToString('0.00 GB'); // 0 GB
b.ToString('#.## B'); // 10757.12 B
end;ByteSize has a Parse and TryParse method.
Like other TryParse methods, ByteSize.TryParse returns boolean value indicating whether or not the parsing was successful. If the value is parsed it is output to the out parameter supplied.
var
output: TByteSize;
begin
TByteSize.TryParse('1.5mb', output);
// Invalid
TByteSize.Parse('1.5 b'); // Can't have partial bits
// Valid
TByteSize.Parse('5b');
TByteSize.Parse('1.55B');
TByteSize.Parse('1.55KB');
TByteSize.Parse('1.55 kB '); // Spaces are trimmed
TByteSize.Parse('1.55 kb');
TByteSize.Parse('1.55 MB');
TByteSize.Parse('1.55 mB');
TByteSize.Parse('1.55 mb');
TByteSize.Parse('1.55 GB');
TByteSize.Parse('1.55 gB');
TByteSize.Parse('1.55 gb');
TByteSize.Parse('1.55 TB');
TByteSize.Parse('1.55 tB');
TByteSize.Parse('1.55 tb');
TByteSize.Parse('1,55 kb'); // de-DE culture
end;###Unit Tests
Unit Tests can be found in ByteSizeLib.Tests Folder.
The unit tests makes use of DUnitX and TestInsight.
###License
This "Software" is Licensed Under MIT License (MIT) .
- 💵 Bitcoin:
1MhFfW7tDuEHQSgie65uJcAfJgCNchGeKf - 💶 Ethereum:
0x6c1DC21aeC49A822A4f1E3bf07c623C2C1978a98 - 💷 Pascalcoin:
345367-40
###Conclusion
Special Thanks to Omar Khudeira for this awesome library. (Thanks to the developers of DUnitX Testing Framework and TestInsight for making tools that simplifies unit testing.