Immer eine Dateigröße

Immer eine Dateigröße

Immer eine Dateigröße : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

GetFileSize bietet keine Möglichkeit, eine Dateigröße in eine beschreibende Zeichenfolge zu verwandeln, wird dieser Algorithmus
Funktion GetAFileSize(SizeInBytes: Integer): String;
const
Preffixes: Array [0..3] Zeichenfolge = //Common Datei Größen Preffixes
('Byte', 'KB', 'MB', 'GB'); Ändern Sie, wenn Sie etwas wollen, die passt
FormatSpecifier: array [Boolean] of String =
('%n', '%.2n'); die Art und Weise, die wir die Zeichenfolge formatieren;
var
i: Ganzzahl; Ein Zähler
TmpSize: Real; Eine temporäre variable
beginnen
Ich: =-1; Vermeiden Sie Compiler beschweren
TmpSize: = SizeInBytes; Vermeiden Sie Compiler beschweren
während (ich < = 3) tun //Main Zyklus erfolgt während ich < High(Preffixes) aber da
eine Datei wird nur selten eine GB bis zu 3 übergeben.
beginnen

TmpSize: = TmpSize / 1024; 1 MB = 1024 KB, 1 KB = 1024 Byte, 1 Byte = 8 Bits, 1 Bit = nothing
Inc (i); erhöhen Sie Zähler und wählen Sie Preffix-Zeichenfolge
Wenn Trunc (TmpSize) = 0, dann //we eine maximale Anzahl der Divisionen Parzellen dies erreicht
beginnen
TmpSize: = TmpSize * 1024; Tmpsize war mehr als nötig 1 mal geteilt
Zu brechen; Beenden der Schleife;
Ende;
Ende;
Tatsächliche Formatierungsroutine
Ergebnis: Format(FormatSpecifier[((Frac(TmpSize)*10) = > 1)], [TmpSize]) + Preffixes [i];
Ende;
Hinweise von Interesse:
* Diese Algorithmus basiert auf Delphi native Format-Funktion, welche Art von beschränkt, es
* Es Isnot-Teil der Windows-api, die Sie haben, zu kopieren und fügen ihn, wann immer Sie es verwenden
* Im Gegensatz zu Windows api hat es korrigieren, Rundung und kann verlängert werden