1.IntToHex()以及相应的函数可以将十进制位数转换为十六进制,不过转换后数字也是字符串型;
自己定义十六进制用$;另外,还有十六进制到二进制的函数,查inttohex()相关函数就可以得到。
2.八进制的转换好像要自己写了,:(
3.十进制转换为二进制:
function dectobin(i:integer):string;
??var
??j:integer;
??s:string;
??begin
??j:=i;s:=' ';
??while j>=2 do
??begin
??if (j mod 2)=1 then
??begin
??s:='1'+s;
??j:=j div 2;
??end
??else
??begin
??s:='0'+s;
??j:=j div 2;
??end;
??end;
??s:=chr(ord('0')+j) + s;
??Ten2Two:=s;
??end;
??function Two2Ten(k:string):integer;
??var
??i,j,t:integer;
??s:char;
??begin
??t:=1;
??j:=length(k);j:=0+(ord(k[j])-ord('0'))*t;;
??for i:=length(k)-1 downto 1 do
??begin
??s:=k;t:=t*2;
??j:=j + ((ord(s)-ord('0'))*t);
??end;
??Two2Ten:=j;
??end;