求十六进制表示的浮点数转换为十进制浮点数的函数

wuwenzhe 2012-11-02 01:50:29

16进制字符串为：405C7107AD9735B3，
将该16进制表示的浮点数转换成10进制数为：113.766093633332，
求转换程序，
该程序最好和C#中的BitConverter.ToDouble()具有相同效果，
谢谢

...全文

2035 23 打赏收藏转发到动态举报

写回复

用AI写文章

23 条回复

切换为时间正序

请发表友善的回复…

发表回复

「已注销」 2013-04-27

打赏
举报

有没有C#的表示方法呢？？？同样求学中-------------

javamy025 2013-02-06

打赏
举报

围观一下专家！！

hsfzxjy 2012-11-12

打赏
举报

哦，要结贴啦？！赶快学习一下

wuwenzhe 2012-11-12

打赏
举报

引用 16 楼 gzzai 的回复:

楼上厉害！！受教了。

求15楼代码注释

广州佬 2012-11-12

打赏
举报

引用 17 楼 wuwenzhe 的回复:

求15楼代码注释

要解决方案，你得到代码了；要注释，你也得到解释了，是否该连同http://bbs.csdn.net/topics/390270124帖子一起结了呢？

蓝色光芒 2012-11-12

打赏
举报


function HexStringToDouble(const AHexString :string):double;
begin
  if Length(AHexString)<>16 then Result := 0
  else PInt64(@Result)^ := StrToInt64Def('$' + AHexString , 0);
end;

我记得我回答过这个问题.

Oraclers 2012-11-12

打赏
举报

procedure TForm1.Button1Click(Sender: TObject); function HexStringToDouble(const AHexString :string):double; var i:integer; P: Pointer; //定義一個無類型指針 ByteArr : array [0..7] of Byte; //定義一8個字節數組用於存放雙精度浮點數。 begin for i := 0 to 7 do //按字節（2個十六進制字符）循環取出十六進制數存到字節數組元素。 ByteArr[7-i] := StrToInt('$'+Copy(AHexString,2*i+1,2));//在內存中雙精度浮點數 //占用8個字節，按低位在前，高位在後原則存放。 P := @ByteArr;//取得數組存放的首地址（指針） Result := Double(P^);//將指針指向的數強制轉換為雙精度浮點數。 end; begin ShowMessage(FloatToStr(HexStringToDouble('405C7107AD9735B3'))); end;

广州佬 2012-11-08

打赏
举报

由我13楼回复的运行结果看，搂主收到的是个PID号：2F5B1900-1CFE-0801-A ('32 46 35 42 31 39 30 30 2D 31 43 46 45 2D 30 38 30 31 2D 41')

广州佬 2012-11-08

打赏
举报

引用 8 楼 wuwenzhe 的回复:

如何把这串字符"32 46 35 42 31 39 30 30 2D 31 43 46 45 2D 30 38 30 31 2D 41"，以字节为单位，转成十进制数呢？

procedure TForm1.Button2Click(Sender: TObject);
const  hexChars='0123456789ABCDEF';
       datastr='32 46 35 42 31 39 30 30 2D 31 43 46 45 2D 30 38 30 31 2D 41';
var s,tmp1,tmp2:string;
    x:integer;
  function Getbyte(hexstr:string):integer;
  begin
    Result:=-1;
    if length(hexstr)<>2 then exit;
    Result:=(pos(hexstr[1],hexChars)-1) shl 4 + pos(hexstr[2],hexChars)-1;
  end;
begin
  s:=datastr;
  tmp1:='';
  while length(s)>0 do begin
    x:=Getbyte(s[1]+s[2]);
    tmp2:=tmp2+inttostr(x)+',';
    tmp1:=tmp1+char(x);
    delete(s,1,3);
  end;
  showmessage(datastr+#13+tmp2+' ___ '+tmp1);
end;

广州佬 2012-11-08

打赏
举报

楼上厉害！！受教了。

Oraclers 2012-11-08

打赏
举报

來一個簡單點的8字節十六進制字符串轉雙精度浮點： procedure TForm1.Button1Click(Sender: TObject); function HexStringToDouble(const AHexString :string):double; var i:integer; P: Pointer; ByteArr : array [0..7] of Byte; begin for i := 0 to 7 do ByteArr[7-i] := StrToInt('$'+Copy(AHexString,2*i+1,2)); P := @ByteArr; Result := Double(P^); end; begin ShowMessage(FloatToStr(HexStringToDouble('405C7107AD9735B3'))); end;

fang 2012-11-07

打赏
举报

楼主要去空格才能用hextobin

Oraclers 2012-11-07

打赏
举报

這個是IEEE754標准規定的雙精度（64位）浮點數表示法的機器碼，共8個字節。最高位是符號位，第62位至52位是2的指數階碼，後面51位至0位是尾數。前面405是符號及階碼轉成二進制就是： 0 10000000101 正數，所以最高位為0，10000000101就是階碼0x405-0x3FF=6就是階碼，後面的C7開始的就是尾數百度下這方面的資料，根據規則我相信你能寫出轉換函數。

广州佬 2012-11-07

打赏
举报


function HexToDouble(cs:string):Double;
const hexstr: array [0..15] of string =
        ('0000','0001','0010','0011',
         '0100','0101','0110','0111',
         '1000','1001','1010','1011',
         '1100','1101','1110','1111');
var s,s2,intstr:string;
    a,b,i,len:integer;
    x:double;
  function BintoInt(binstr:String):Int64;
  var i:integer;
  begin
    Result:=0;
    len:=Length(binstr);
    for i:=1 to len do Result:=Result+(1 shl (len-i))*StrToInt(binstr[i]);
  end;
begin
  s:='';
  for i:=Length(cs) downto 1 do  s:=hexstr[StrToInt('$'+cs[i])]+s;
  intstr:=copy(s,2,11);
  s2:=StringOfChar('0',16-length(intstr))+intstr;
  a:=BintoInt(s2)-1023;
  delete(s,1,12);
  s:='1'+s;
  b:=BintoInt(copy(s,1,a+1));
  s:=copy(s,a+2,length(s));
  x:=0;
  len:=Length(s);
  for i:=1 to len do if s[i]='1' then x:=x+1/(int64(1) shl i);
  Result:=b+x;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(floattostr(HexToDouble('405C7107AD9735B3')));
end;