W
windthunder
Unregistered / Unconfirmed
GUEST, unregistred user!
例如：
将'9000' 转为 '36864'
网上等待，马上给分！！！
将'9000' 转为 '36864'
网上等待，马上给分！！！
L
lotusleaf
Unregistered / Unconfirmed
GUEST, unregistred user!
function HexToInt(Str:string):int64;
var
temp:int64;
i,tmp:integer;
begin
temp:=0;
for i:=1 to length(str)do
begin
case ord(str) of
48..57:tmp:=strtoint(str);
65..70,97..102:tmp:=strtoint('$'+str);
else
tmp:=0;
end;
temp:=temp+tmp*round(exp((length(str)-i)*ln(16)));
end;
result:=temp;
end;
var
temp:int64;
i,tmp:integer;
begin
temp:=0;
for i:=1 to length(str)do
begin
case ord(str) of
48..57:tmp:=strtoint(str);
65..70,97..102:tmp:=strtoint('$'+str);
else
tmp:=0;
end;
temp:=temp+tmp*round(exp((length(str)-i)*ln(16)));
end;
result:=temp;
end;
R
rockjie
Unregistered / Unconfirmed
GUEST, unregistred user!
gz
W
windthunder
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi里没有自带的函数吗？
L
lotusleaf
Unregistered / Unconfirmed
GUEST, unregistred user!
没
A
Avenir
Unregistered / Unconfirmed
GUEST, unregistred user!
IntToStr('$9000') 加个$就OK 当然里面有的就不用了
W
windthunder
Unregistered / Unconfirmed
GUEST, unregistred user!
thank you
[
]
[
]
W
windthunder
Unregistered / Unconfirmed
GUEST, unregistred user!
Avenir：
我看错了，你的是将整形转成字符串型，我要的刚好相反，字符串转成整型！！！
急救！！！！！！[!]
我看错了，你的是将整形转成字符串型，我要的刚好相反，字符串转成整型！！！
急救！！！！！！[
!]
完
完颜康
Unregistered / Unconfirmed
GUEST, unregistred user!
请你看 lotusleaf 写的代码，
A
Avenir
Unregistered / Unconfirmed
GUEST, unregistred user!
StrToInt('$9000')我写错了，呵呵
W
windthunder
Unregistered / Unconfirmed
GUEST, unregistred user!
太麻烦了，向这样的代码我自己也能写，我只是想看有没有更简单的！