超短精简进制转换

超短精简进制转换 日期：2006年3月17日 做者：jey 人气：3467 查看:[大字体 中字体 小字体] 进制转换,有谁能有这么详细吗?不是我吹! 精简/短小精悍
网站:网络实验室 Http://www.ontheline.cn 收集与制做: Jey

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