Delphi进制转换

//十六进制(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;