浮点数与字节数组的相互转换

摘自:原创
作者:

procedure TForm1.Button1Click(Sender: TObject);
var
  aa : array[0..7] of byte; //8个字节长的字节数组
  tmpF : double;//8 字节双精度浮点数
  i : integer;
  tmpK : double;//8 字节双精度浮点数
begin
  tmpF := now;//取当前时间
  edit1.Text := floattostr(tmpF);

  move(tmpF,aa[0],8); //把浮点数保存到数组
  for i := 0 to 7 do
  begin
    edit2.Text := edit2.Text + inttohex(aa[i],2);
  end;

  move(aa[0],tmpK,8);//从数组取回浮点数
  Edit3.text := floattostr(tmpK);
end;