浮点型转4字节16进制

zhengjiujie 2013-12-06 04:11:15

在delphi中，怎么把浮点型转4字节16进制

...全文

253 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

xibeitianlang 2013-12-11

打赏
举报

4字节，每字$00~$FF。Result:=format('%.8x',[floor(f)]);

lhy 2013-12-11

打赏
举报

但是位数多的话还是丢了很多。

yueing8 2013-12-11

打赏
举报

Type TSingleRec = record case Integer of 0:(Value:Single); 1:(bLL,bLH,bHL,bHH:Byte); end; var fSingleRec:TSingleRec; strtp:string; begin fSingleRec.Value := 1323.535; strtp := inttohex(fSingleRec.bLL,2)+' '+ inttohex(fSingleRec.bLH,2)+' '+ inttohex(fSingleRec.bHL,2)+' '+ inttohex(fSingleRec.bHH,2)+' ';

蓝色光芒 2013-12-06

打赏
举报

PSingle@B)^ := n;

蓝色光芒 2013-12-06

打赏
举报

var B : array [0..3] of Byte; n : Single; begin n := 1283123.12; PSingle(@n)^ := n; //已经转好了，直接转为或者 ShowMessage(IntToHex(PInteger(@n)^ , 8)); //这样也行，融会贯通即可 end;

zhengjiujie 2013-12-06