统一一个文件中bit位 1 的个数
摘要：
unitCountThread;interfaceusesClasses,SysUtils,Dialogs,Math;typeTCountThread=class(TThread)privateFFileName:string;FFileSize:Int64;FOnStartCount:TNotifyEvent;FOnProcess:TNotifyEvent;FOnEndCount:TNotifyEvent;FSumBit:Int64;FBlockCount:Integer;functionCountBits(B:Byte):Integer;protectedprocedureExecute; 阅读全文
posted @ 2011-05-07 20:48 jxgxy 阅读(592) 评论(0) 推荐(0) 编辑
