标题:如何用DELPHI从二进制文件中读取单精度浮点数?
只看楼主
mrzgh
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-7-6
结帖率:0
已结贴  问题点数:20 回复次数:1 
如何用DELPHI从二进制文件中读取单精度浮点数?
如题,请各位老师指导。急
搜索更多相关主题的帖子: 单精度 二进制 DELPHI 点数 文件 
2010-07-06 17:31
东海一鱼
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:48
帖 子:757
专家分:4760
注 册:2009-8-10
得分:20 
mmo1: TMemo;
procedure TForm1.btn1Click(Sender: TObject);
var
  avar: Pointer;
begin
  avar:= AllocMem(SizeOf(Single));      //分配buf

  try
    pint(avar)^:= $45993dcb;            //仿真读取的数据
    mmo1.Lines.Add(FloatToStr(psingle(avar)^)); //按单精度浮点解释并转换为字符串显示
  finally
    FreeMem(avar);
  end;
end;

举世而誉之而不加劝,举世而非之而不加沮,定乎内外之分,辩乎荣辱之境,斯已矣。彼其于世未数数然也。
2010-07-11 09:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-312280-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.227865 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved