11 2006 档案

函数：友好显示字节
摘要：function BytesFriendly(const Bytes : integer):string;begin if Bytes = 1024) and (Bytes = (1024*1024)) and (Bytes = (1024*1024*1024) then begin Result := Format('%n', [Bytes / (1024 * 1024 * 102... 阅读全文
posted @ 2006-11-07 09:41 hingman 阅读(142) 评论(0) 推荐(0)