将四个BYTE数值转换成IEEE754标准的浮点数（两种方法：用Addr函数取字节数字的首地址，或者用Absolute关键字）

在工作中，经常使用到IEEE754格式的数据。IEEE754格式的数据占四个字节，好像Motorola格式和Intel格式的还不一样。

由于工作中很少和他打交道（使用的软件内部已经处理），就没太在意。

今天在编程时发现需要把四个BYTE类型的数据转换成IEEE754标准的数据，就编了一个函数处理一下。

 

    1 unit Unit2; 
  
 2  
  
 3 interface 
  
 4  
  
 5 uses 
  
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  
 7   Dialogs, StdCtrls; 
  
 8  
  
 9 type 
  
10   TForm2 = class(TForm) 
  
11     edt1: TEdit; 
  
12     edt2: TEdit; 
  
13     edt3: TEdit; 
  
14     edt4: TEdit; 
  
15     edt5: TEdit; 
  
16     btn1: TButton; 
  
17     procedure btn1Click(Sender: TObject); 
  
18   private 
  
19     { Private declarations } 
  
20   public 
  
21     { Public declarations } 
  
22   end; 
  
23  
  
24 var 
  
25   Form2: TForm2; 
  
26  
  
27 implementation 
  
28  
  
29 {$R *.dfm} 
  
30 {将四个BYTE转换成IEEE754格式的数据} 
  
31 function PackByteToFloat(byte1,byte2,byte3,byte4:byte):Single; 
  
32 var 
  
33   input:array[1..4] of byte; {定义一个数组存放输入的四个BYTE} 
  
34   output:PSingle; 
  
35 begin 
  
36   input[1] := byte1; 
  
37   input[2] := byte2; 
  
38   input[3] := byte3; 
  
39   input[4] := byte4; 
  
40   output := Addr(input);  {使用取地址的方法进行处理} 
  
41   Result := output^;      {得到了intel格式的数据} 
  
42 end; 
  
43  
  
44 procedure TForm2.btn1Click(Sender: TObject); 
  
45 var 
  
46   byte1,byte2,byte3,byte4:byte; 
  
47  
  
48 begin 
  
49   byte1 := StrToInt(edt1.Text); 
  
50   byte2 := StrToInt(edt2.Text); 
  
51   byte3 := StrToInt(edt3.Text); 
  
52   byte4 := StrToInt(edt4.Text); 
  
53  
  
54   edt5.Text := FloatToStr(PackByteToFloat(byte1,byte2,byte3,byte4)); 
  
55  
  
56 end; 
  
57  
  
58 end. 
  
59  
 

 

从万一老师的博客上又学到了一招:

1 2 3 4 5 6 7 8 9 10 11

procedure  TForm1 . FormCreate(Sender: TObject); var    aa: record  b1,b2,b3,b4: Byte  end ;    bb: Single  absolute aa; begin    aa . b1 :=  $CD ;    aa . b2 :=  $CC ;    aa . b3 :=  $44 ;    aa . b4 :=  $41 ;    ShowMessagefmt( '%f' ,[bb]); end ;

 

http://www.cnblogs.com/dabiao/archive/2010/02/20/1669842.html