//十六进制(S)-->>十进制(I) [重写:Jey] function hextoint(s: string): Integer; begin //$代表16进制 Result:=StrToInt('$'+s); end;
//十进制转换为二进制字符串 [重写:Jey] function inttoBin(i: integer): string; begin while i <>0 do begin //i mod 2取模,再使用format格式化 result:=Format('%d'+result,[i mod 2]); i:=i div 2 end end;
//二进制(S)-->>十进制(D) [重写:Jey] uses Math; function hextoint(s: string): Double; begin while Length(s) <>0 do begin //2^(长度-1)次方 if s[1]='1' then Result:=Result+power(2,Length(s)-1); s:=Copy(s,2,Length(s)); end end;
//十进制(I)-->>十六进制(S) //D自带函数,Digits长度,一般设4. function IntToHex(Value: Integer; Digits: Integer): string;
//数据(S)-->>二进制(S) //任何数据都是以二进制形式存储的！ (转) function conertde(s:string):string; var i:integer; begin for i:=1 to length(s) do result:=result+inttohex(ord(s[i]),2); end;
