一浮点数用十六进制四字节表示,如何将其转化为十进制数:
如0X44A56E8,转化成功后为:1323.456
C语言可以自动转化,难道delphi得自己写算法?
如0X44A56E8,转化成功后为:1323.456
C语言可以自动转化,难道delphi得自己写算法?
解决方案 »
- 谁有ImageEN的事例?给小弟个看看学学
- oracle数据库中sql语句max出现非单组分组函数
- 求助: image 保存成gif 文件时候变色
- 问InfoPower的TwwDBLookupComboDlg.急!!!
- 我写的线程为什么隔一段时间就不执行了
- 在线等!请问怎样在Form.Canvas上实现象在画图中用鼠标画出一个矩形,并且可以移动和缩放!
- 请问怎样得到一个文件夹下的最早文件和最新文件的名字(不要用FindNext)?
- CSDN的xml贴子怎么保存了以后察看啊????
- 有没有一个组件能同LISTBOX一样功能,但可以在列表中加图标?
- access中日期的格式怎么写??还有,偶有一堆edit框,偶想让任何一个为空时,跳出messagebx,用什么语句实现呢??(牛虻)
- 用Delphi写一个这样的服务程序
- 怎样检测oracle中是否存在某个表?
var
tempDouble:Single;
tempbyte: array[0..3] of Byte;
i:Integer;
begin
// tempDouble:=0.00;
tempbyte[0]:=StrtoInt('$98');
tempbyte[1]:=StrtoInt('$6E');
tempbyte[2]:=StrtoInt('$A5');
tempbyte[3]:=StrtoInt('$44');
CopyMemory(@tempDouble,@tempbyte, 4); //将字节数组转为Double型变量
label1.Caption:=floattostr(tempdouble); // 往返过程 CopyMemory(@tempbyte, @tempDouble, 4); //将Double型变量转为字节数组
For i:= 0 To High(tempByte) do
label1.caption:=label1.caption+InttoHex(tempByte[i],0);
end;