请教如何将16进制转化为10进制(20分)

Y

yishengdxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #1

10进制化为16进制有函数可用但反之却没有
请教如何将16进制转化为10进制

 

L

linghua_meng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #2

var
i : integer
s : string;
begin
s := '$' + ThatHexString;
i := StrToInt(a);
end;

 

Y

ydjjld

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #3

呵呵

 

党

党sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #4

function hextodec(a:hexstring):integer;
begin
result:=strtoint('$'+a);
end;

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #5

这样对于某些较大的数转换会出错的。
function sqrn(int,times:int64):int64;
var i,j:integer;
begin
j:=1;
for i:=1 to times do
j:=j*int;
result:=j;
end;
function hextoint(hex:string):int64;
var i,k:integer;
j:int64;
begin
j:=0;
k:=length(hex);
for i:=0 to length(hex)-1 do
j:=j+strtoint('$'+hex[k-i])*sqrn(16,i);
result:=j;
end;

这样就没问题了。

 

Y

yishengdxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-26

• #6

多人接受答案了。