浮点数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 2) downto 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..15] of 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写的单精度浮点数转换工具验证。