求16进制转成10进制的问题！

[hzlan]

求16进制转成10进制的问题！
如197C->6524

[shanhuchong]

是的,有相應的函數.
清華的c語言上級習題集的附錄有.
潭浩強的.

[hzlan]

use delphi!
have not in delphi!

[myfine]

很简单的阿！用一个for循环就行了阿！

[ZhangYv]

自己求吧，假设这16进制数是STRING类型，对各位数扫描一遍就可以了。把STRING的16进制数转为10进制的integer；
function GetNum(var i: char): integer;
var
flag: integer;
begin
flag := ord('0');
if (i >= '0') and (i <= '9') then
GetNum := ord(i)-flag
else
case i of
'A': GetNum := 10;
'B': GetNum := 11;
'C': GetNum := 12;
'D': GetNum := 13;
'E': GetNum := 14;
end;
function InvertNum(s: string): integer;
var
s: integer;
t: integer;
begin
t := 1;
s := 0;
for i := lengh(s) downto 1 do
begin
s := GetNum(s[i]) * t;
t := t * 10;
end;
InvertNum := s;
end;

[ZhangYv]

把t := t * 10; 改成 t := t * 16;

[ZhangYv]

faint...刚才没检查就发出去了，还有：
case i of
'A': GetNum := 10;
'B': GetNum := 11;
'C': GetNum := 12;
'D': GetNum := 13;
'E': GetNum := 14;
'F': GetNum := 15;

[diabloqin]

有相应的函数。
找找看.

[hzlan]

thanks