怎样能把十进制转换成为二进制、八进制、十六进制,它们之间互相转换怎样实现?需要什么函数?
比如:我想把十六进制转换成为十进制有什么函数???

解决方案 »

  1.   

    IntToHex :10--16function BinToInt(InStr:String):Integer; 
    var 
    LoopCounter:Integer; 
    begin 
    Result := 0; 
    for LoopCounter := 1 to Length(Instr) do 
      Result := Result + Trunc( StrToInt(InStr[LoopCounter]) * 
                 Power(2, Length(InStr)-LoopCounter ) ); 
    end;其他的必须通过自定义函数实现
      

  2.   

    10->16用IntToHex()
    16->10用StrToInt(),不过要在str前加上$,如StrToInt('$FF');
      

  3.   

    你查一下HELP
    二进制是BCD()
    有点记不住了
      

  4.   

    strtoint('$ff')=255 16 -- 10
      

  5.   

    10->16用IntToHex()
    16->10用StrToInt(),不过要在str前加上$,如StrToInt('$FF');