function HexToDec(HexData: Integer): Integer;
var m: Integer;
begin
Result := 0;
m := Trunc(Power(10, Length(IntToStr(HexData)) - 1));
while m > 0 do
begin
Result := (Result*16 + HexData div m);
HexData := HexData mod m;
m := m div 10;
end;
end;
var m: Integer;
begin
Result := 0;
m := Trunc(Power(10, Length(IntToStr(HexData)) - 1));
while m > 0 do
begin
Result := (Result*16 + HexData div m);
HexData := HexData mod m;
m := m div 10;
end;
end;
解决方案 »
- 关于delphi中spcomm的使用
- 用IHTMLElement.outText取一个网页中的text input元素源码失败,应该怎么取?
- 读文件内容与写文件件内容
- Sender是什么?
- 用delphi编程如何来访问远程数据库啊?急的慌!!!
- 关于动态生成FORM
- 请大家多多指导(来者有分)!!!
- 急问:如何将Tgraphic类型转化为TJpegimage类型?用什么语句?请高手指点!
- 为何我的TQuery组件连续执行第二次就会出错?
- 请问Delphi的Form有没有类似VB的一开始显示的位置的属性选择,屏幕居中或所有者居中,还有Delphi的copy paster cut 为什么不是ctrl+c ctrl+v ctrl+x,能改吗?
- 帮帮小弟,谁能帮我!!!!
- 五个三角形代表什么意思??
ord('1')=31不等于49呀,
我是要把31转成49...