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


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

    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;

    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的原型。

    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写的单精度浮点数转换工具验证。

  • 相关阅读:
    懒懒的~~
    BigDecimal,注解
    遇到的一点问题些
    npm一点点
    TortoiseSvn问题研究(一)
    关于maven-基本
    HttpServletRequest二三事
    学习迭代1需求分析
    FMDB简单使用
    计算机中的事务、回滚
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/5580741.html
Copyright © 2020-2023  润新知