浮点数float转换成十六进制字符串的方法(FloatToHex)

本文从原文:http://blog.csdn.net/cswangbin/article/details/6053569得到灵感

重新书写了float型转为十六进制的delphi程序

[delphi]  view plain copy
  1. Function FloatToHex(Value: single): string;  
  2. var  
  3.   l, i: integer;  
  4.   HexText,tempHexText,temp: String;  
  5. begin  
  6.   SetLength(HexText, 2 * SizeOf(Value));  
  7.   BinToHex(pchar(@Value), pchar(@HexText[1]), SizeOf(Value));  
  8.   l := length(HexText);  
  9.   for i := (l div 2downto 1 do  
  10.   begin  
  11.     temp:=copy(HexText,(2*i-1),2);  
  12.     tempHexText := tempHexText + temp;  
  13.   end;  
  14.     result := tempHexText;  
  15. end;  
例子:

[delphi]  view plain copy
  1. procedure TForm6.addButtonClick(Sender: TObject);  
  2. begin  
  3.   editHar3.Text := FloatToHex(-12.545); // strtofloat(editHar1.Text)  
  4. end;  

显示结果为 C148B852,结果正确,-12.545~C148B852

注意添加

uses StrUtils{截取字符串单元};

下面是原文:

 我们在研究封包技术时,经常会碰到将浮点数转换成十六进制形式。比如在游戏中人物的座标,经常就用浮点数来表示。怎么将浮点数转换成十六进制字符串形式呢?下面我将写出其在DELPHI中的方法。
       先讲点背景吧,我们通常说的小数,一般就是指浮点数,而且当值不大的时候,泛指单精度浮点数。在delphi中,Single是单精度浮点数,占用4个字节存储,高精度的Double占用8个字节,Real是borland早期用过的,占用6个字节,现在逐渐淡出了。
       通过调用Delphi中的BinToHex函数可以很容易实现其转换。下面是Delphi的原型。

[delphi]  view plain copy
  1. procedure BinToHex(Buffer: PAnsiChar; Text: PAnsiChar; BufSize: Integer); assembler;  
  2. const  
  3.   Convert: array[0..15of AnsiChar = AnsiString('0123456789ABCDEF');  
  4. var  
  5.   I: Integer;  
  6. begin  
  7.   for I := 0 to BufSize - 1 do  
  8.   begin  
  9.     Text[0] := Convert[Byte(Buffer[I]) shr 4];  
  10.     Text[1] := Convert[Byte(Buffer[I]) and $F];  
  11.     Inc(Text, 2);  
  12.   end;  
  13. end;  

      解释一下该函数:内存中地址为Buffer,长度为BufSize的一段数据转成16进制并存入Text所指向的内存地址中,Text的长度至少需要BufSize*2才能放下转换后的数据。
      有了这些背景,就可以理解我下面写的代码了。

[delphi]  view plain copy
  1. Function FloatToHex(Value:single):string;  
  2. var  
  3.   HexText: String;  
  4. begin  
  5.   SetLength(HexText,2*SizeOf(Value));  
  6.   BinToHex(pchar(@Value),pchar(@HexText[1]),SizeOf(Value));  
  7.   return Hextext  
  8. end;  

      比如在调用的时候,假设传入3.1415,得到的结果输出为560E4940,注意这里的结果是低位在前,高位在后。意思就是40490E56就是我们通常说的3.1415。
      你可以用Greatboy写的单精度浮点数转换工具验证。


你可能感兴趣的:(delphi,delphi)