Double在内存中占8个字节,已知8个字节的值如何求出Double值?
解决方案 »
- 怎么让自动运行的窗体不闪一下才关闭?
- 我分多的用不完了,发帖玩玩
- 如果将串口的数据模拟成键盘的输入
- 谁有控件RichView的例子程序RichViewAction代码?(旧版本的)
- ***************怎样才能提取SWF文件里的图片(JPG或BMP格式)?请大家给点建议*************
- 一个困惑的问题请大家帮忙?
- delphi访问SQL Server的登录问题
- 怎样让标题栏上的字幕走来走去。
- 装载SQLserver2000 为何会失败?
- delphi+sql server UpdateBatch出错
- 怎么把delphi做的activex的方法或属性暴露给javascript?
- Delphi居然不支持块缩进 还是我不知道?请指点!
dValue := PDouble(Integer(@bData[0]))^;
D: Double;
P: Pointer;
begin
P := ……
Move(P^, D, SizeOf(D));
ShowMessage(FloatToStr(D));
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
vBuffer: array[0..7] of Byte;
vDouble: Double;
begin
vDouble := PDouble(@vBuffer[0])^; //方法1//见楼上 Move(vBuffer[0], vDouble, SizeOf(Double)); //方法2
end;