十六进制数转换成四进制 ( 积分: 50 )

Z

zzmfree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #1

如何将十六进制数转换成四进制

 

Z

zzmfree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #2

如何将十六进制数转换成四进制

 

E

edplwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #3

何謂四进制? 請指教[]

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #4

//16进制 -> (4、8)进制
Function HexTo4(AiStr : String;
AiValue : Integer = 4) : String;
CONST
Convert = '0123456789ABCDEF';
Var
i, j : Integer;
begin
For i := 1 To Length(AiStr)do
begin
j := Pos(AiStr, Convert) - 1;
Result := Result + IntToStr(j Div AiValue) + IntToStr(j Mod AiValue);
end;
end;

Edit1.Text := HexTo4('FF');
//4进制
Edit1.Text := HexTo4('FF', 8);
//8进制

 

C

czcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #5

最简单的就是先转换成10进制,再从10进制转...
楼上的16进制->10进制的方法不错.
在此甚础上改进一下,可以实现N进制到N进制就完美.

 

Z

zzmfree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-17

• #6

多人接受答案了。