文件名称：递归枚举目录下所有文件并显示大小KB/MB/GB自动换算
文件大小：245KB
文件格式：RAR
更新时间：2018-06-30 19:19:28
TSearchRec
递归枚举目录下所有文件并显示大小KB/MB/GB自动换算 function FormatByteSize(const bytes: Int64): string; const B = 1; //byte KB = 1024 * B; //kilobyte MB = 1024 * KB; //megabyte GB = 1024 * MB; //gigabyte begin if bytes > GB then result := FormatFloat('#.## GB', bytes / GB) else if bytes > MB then result := FormatFloat('#.## MB', bytes / MB) else if bytes > KB then result := FormatFloat('#.## KB', bytes / KB) else result := Format('%d B', [bytes]); end;
【文件预览】：
递归枚举目录下文件大小
----ListDirFilesSize.dof(2KB)
----Unit1.~dfm(1KB)
----Unit1.dfm(1KB)
----Unit1.pas(2KB)
----ListDirFilesSize.dpr(196B)
----未命名.jpg(93KB)
----ListDirFilesSize.exe(385KB)
----ListDirFilesSize.cfg(434B)
----Unit1.~pas(2KB)
----ListDirFilesSize.res(876B)
----Unit1.dcu(6KB)