怎样能把十进制转换成为二进制、八进制、十六进制，它们之间互相转换怎样实现？需要什么函数？

[xiangyun123]

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

[cobi]

IntToHex :10--16

function 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;

其他的必须通过自定义函数实现

[lizhenjia]

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

[johnmack]

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

[xiangyun123]

具体怎么做？？

[cobi]

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

[wwnwnl]

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