摘要: //十六进制(S)-->>十进制(I) [重写:Jey]function hextoint(s: string): Integer;begin //$代表16进制 Result:=StrToInt('$'+s);end;//十进制转换为二进制字符串 [重写:Jey]function inttoBin(i: integer): string;beginwhile i <>0 dobegin //i mod 2取模,再使用format格式化 result:=Format('%d'+result,[i mod 2]); i:=i div 2en 阅读全文
posted @ 2009-11-09 17:20 EasyPass 阅读(479) 评论(0) 推荐(0)