摘要:
unitBinConvertor;interfacefunctionBinToInt(value:string):Integer;functionIntToBin(value:Longint;digits:Integer):string;overload;functionIntToBin(value:Longint):string;overload;implementationfunctionBinToInt(value:string):Integer;vari,len:Integer;beginResult:=0;len:=Length(value);fori:=lendownto1dobe 阅读全文
posted @ 2011-08-16 01:16 Leo.W 阅读(275) 评论(0) 推荐(0) 编辑