怎么把四个字节的16进制的数据转成FLOAT
例如
'A01A0A42';16进制转成35.42
例如
'A01A0A42';16进制转成35.42
解决方案 »
- 紧急求救: 用 outlook 2000 控件插入文件、联系人失败!紧急求救
- 谁有刘艺Delphi模式编程的电子书
- 请教关于indy的tIdTcpServer控件的多线程问题
- 用dephi开发地理信息的问题
- 怎样得到系统所装在的目录。
- 在delphi中如何实现远程锁定计算机,锁定键盘等
- 哪些message是没有被系统或者一些控件资源用到的啊?
- 怎么样定义静态变量像C/C++中的Static
- 如何通过在listbox中点击其中的item,获的的数值使richtext的相应行选择????
- 寻有投币机编程经验的朋友
- 用delphi如何开发B/S的系统,有没有参考资料,或者推荐几本书!!!
- 行锁定??? 读取的时候如何实现
var
i : INTEGER;
res: INTEGER;begin
hex := UpperCase(hex);
res := 0;
// B:=Length(hex);
for i:=1 to Length(hex) do
begin
if (hex[i]>='0') and (hex[i]<='9')
then
res := res * 16 + Ord(hex[i]) - Ord('0')
else
if (hex[i]>='A') and (hex[i]<='F')
then
res := res * 16 + Ord(hex[i]) - Ord('A') + 10
else
begin
HexToInt := 0;
Exit;
end;
end;
HexToInt := res;
end;
begin
s :='$'+trim(Edit1.Text);
val(s,a,i);
Label1.Caption :=FloatToStr(a);
end;