浮点数float转换成十六进制字符串的方法(FloatToHex)
2013-12-26 17:56
381 查看
本文从原文:http://blog.csdn.net/cswangbin/article/details/6053569得到灵感
重新书写了float型转为十六进制的delphi程序
[delphi] view
plaincopy
Function FloatToHex(Value: single): string;
var
l, i: integer;
HexText,tempHexText,temp: String;
begin
SetLength(HexText, 2 * SizeOf(Value));
BinToHex(pchar(@Value), pchar(@HexText[1]), SizeOf(Value));
l := length(HexText);
for i := (l div 2) downto 1 do
begin
temp:=copy(HexText,(2*i-1),2);
tempHexText := tempHexText + temp;
end;
result := tempHexText;
end;
例子:
[delphi] view
plaincopy
procedure TForm6.addButtonClick(Sender: TObject);
begin
editHar3.Text := FloatToHex(-12.545); // strtofloat(editHar1.Text)
end;
显示结果为 C148B852,结果正确,-12.545~C148B852
注意添加
下面是原文:
我们在研究封包技术时,经常会碰到将浮点数转换成十六进制形式。比如在游戏中人物的座标,经常就用浮点数来表示。怎么将浮点数转换成十六进制字符串形式呢?下面我将写出其在DELPHI中的方法。
先讲点背景吧,我们通常说的小数,一般就是指浮点数,而且当值不大的时候,泛指单精度浮点数。在delphi中,Single是单精度浮点数,占用4个字节存储,高精度的Double占用8个字节,Real是borland早期用过的,占用6个字节,现在逐渐淡出了。
通过调用Delphi中的BinToHex函数可以很容易实现其转换。下面是Delphi的原型。
[delphi] view
plaincopy
procedure BinToHex(Buffer: PAnsiChar; Text: PAnsiChar; BufSize: Integer); assembler;
const
Convert: array[0..15] of AnsiChar = AnsiString('0123456789ABCDEF');
var
I: Integer;
begin
for I := 0 to BufSize - 1 do
begin
Text[0] := Convert[Byte(Buffer[I]) shr 4];
Text[1] := Convert[Byte(Buffer[I]) and $F];
Inc(Text, 2);
end;
end;
解释一下该函数:内存中地址为Buffer,长度为BufSize的一段数据转成16进制并存入Text所指向的内存地址中,Text的长度至少需要BufSize*2才能放下转换后的数据。
有了这些背景,就可以理解我下面写的代码了。
[delphi] view
plaincopy
Function FloatToHex(Value:single):string;
var
HexText: String;
begin
SetLength(HexText,2*SizeOf(Value));
BinToHex(pchar(@Value),pchar(@HexText[1]),SizeOf(Value));
return Hextext
end;
比如在调用的时候,假设传入3.1415,得到的结果输出为560E4940,注意这里的结果是低位在前,高位在后。意思就是40490E56就是我们通常说的3.1415。
你可以用Greatboy写的单精度浮点数转换工具验证。
重新书写了float型转为十六进制的delphi程序
[delphi] view
plaincopy
Function FloatToHex(Value: single): string;
var
l, i: integer;
HexText,tempHexText,temp: String;
begin
SetLength(HexText, 2 * SizeOf(Value));
BinToHex(pchar(@Value), pchar(@HexText[1]), SizeOf(Value));
l := length(HexText);
for i := (l div 2) downto 1 do
begin
temp:=copy(HexText,(2*i-1),2);
tempHexText := tempHexText + temp;
end;
result := tempHexText;
end;
例子:
[delphi] view
plaincopy
procedure TForm6.addButtonClick(Sender: TObject);
begin
editHar3.Text := FloatToHex(-12.545); // strtofloat(editHar1.Text)
end;
显示结果为 C148B852,结果正确,-12.545~C148B852
注意添加
uses StrUtils{截取字符串单元};
下面是原文:
我们在研究封包技术时,经常会碰到将浮点数转换成十六进制形式。比如在游戏中人物的座标,经常就用浮点数来表示。怎么将浮点数转换成十六进制字符串形式呢?下面我将写出其在DELPHI中的方法。
先讲点背景吧,我们通常说的小数,一般就是指浮点数,而且当值不大的时候,泛指单精度浮点数。在delphi中,Single是单精度浮点数,占用4个字节存储,高精度的Double占用8个字节,Real是borland早期用过的,占用6个字节,现在逐渐淡出了。
通过调用Delphi中的BinToHex函数可以很容易实现其转换。下面是Delphi的原型。
[delphi] view
plaincopy
procedure BinToHex(Buffer: PAnsiChar; Text: PAnsiChar; BufSize: Integer); assembler;
const
Convert: array[0..15] of AnsiChar = AnsiString('0123456789ABCDEF');
var
I: Integer;
begin
for I := 0 to BufSize - 1 do
begin
Text[0] := Convert[Byte(Buffer[I]) shr 4];
Text[1] := Convert[Byte(Buffer[I]) and $F];
Inc(Text, 2);
end;
end;
解释一下该函数:内存中地址为Buffer,长度为BufSize的一段数据转成16进制并存入Text所指向的内存地址中,Text的长度至少需要BufSize*2才能放下转换后的数据。
有了这些背景,就可以理解我下面写的代码了。
[delphi] view
plaincopy
Function FloatToHex(Value:single):string;
var
HexText: String;
begin
SetLength(HexText,2*SizeOf(Value));
BinToHex(pchar(@Value),pchar(@HexText[1]),SizeOf(Value));
return Hextext
end;
比如在调用的时候,假设传入3.1415,得到的结果输出为560E4940,注意这里的结果是低位在前,高位在后。意思就是40490E56就是我们通常说的3.1415。
你可以用Greatboy写的单精度浮点数转换工具验证。
相关文章推荐
- delphi 浮点数float转换成十六进制字符串的方法(FloatToHex)
- 将以字符串形式给出的浮点数的十六进制形式转换成十进制形式(方法太麻烦,请各位大侠帮忙改进!)
- 浮点数转换成十六进制字符串的方法
- javascript实现的字符串与十六进制表示字符串相互转换方法
- 啊,好久没更新了,今天分享一个小工具,两个方法,转换字节数组成十六进制字符串
- 在delphi中,如何把十进制数转换为十六进制整形数。若用inttohex只能转化为十六进制字符串。
- python数据类型转换 python字符串转浮点数 python字符串转float
- Delphi的StrToFloat会使转变后的浮点数跟转换前的字符串不一样
- 利用python中的hex()函数把整数转换成一个十六进制的字符串
- float([x]): 将一个字符串或数转换为浮点数。如果无参数将返回0.0
- 利用python中的hex()函数把整数转换成一个十六进制的字符串
- Delphi的StrToFloat会使转变后的浮点数跟转换前的字符串不一样
- 十进制数字字符串转换成十六进制数字字符串方法
- C++实现十六进制字符串转换为十进制整数的方法
- vc 浮点数转换为内存十六进制字符串
- java 如何将十六进制字符串转换为 float 符点型?相互转换
- lua语言中十六进制字符串转换为二进制字符串的方法
- delphi 浮点数转换成十六进制字符串的方法
- 将字符串形式的十六进制数据转换为十六进制数据(hex)
- vc 浮点数转换为内存十六进制字符串