请问delphi里面有没有将16进制数转换成10进制数的函数？ ( 积分: 20 )

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #1

我只找到了INTTOHEX十进制转16进制的，我想找反之的。谢谢！

 

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #2

我只找到了INTTOHEX十进制转16进制的，我想找反之的。谢谢！

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #3

strtoint('$1A');

 

鳄

鳄鱼先生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #4

var
i: integer;
sc: string;
begin
sc := '$'+ HexString;
i:= Strtoint(a);
end;

 

J

jlyin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #5

自己写一个，两位一转不就行了？
最简单的如下：
HEXTOINT(HEX1:Str):longInt;
begin
Result:=StrtoInt('$'+hex1);
end;

 

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #6

鳄鱼先生 那个string（a） 的a是什么？

 

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #7

方法就是int＋'$'？

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #8

方法是'$'+16进制字符串，然后用strtoint将字符串转为int。

 

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #9

不行阿我试了，各位

 

3

34432479

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #10

谢谢各位通过了，分比较少不要嫌弃！

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-19

• #11

function HexToInt1(const S: String): DWORD;
var
I : Integer;
begin
Result := 0;
for I := 1 to Length(s) do
begin
case s of
'0'..'9': Result := Result * 16 + Ord(S) - Ord('0');
'A'..'F': Result := Result * 16 + Ord(S) - Ord('A') + 10;
'a'..'f': Result := Result * 16 + Ord(S) - Ord('a') + 10;
else
Result := 0;
Exit;
end;
end
end;


http://www.delphibbs.com/delphibbs/dispq.asp?lid=2290273
网上的