首页
社区
课程
招聘
[求助]Delphi中十六进制如何转ASCII?
发表于: 2010-2-27 17:06 10911

[求助]Delphi中十六进制如何转ASCII?

2010-2-27 17:06
10911
收藏
免费 0
支持
分享
最新回复 (3)
雪    币: 230
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
function BinToHexStr(Buf: Pointer; Len: Integer): string;
  const
    HexString: array[0..15] of Char = '0123456789ABCDEF';
  var
    i: Integer;
    P: PByte;
  begin
    P := Buf;
    i := 1;
    SetLength(Result, Len * 3);
    while i < Length(Result) do
    begin
      Result[i] := HexString[P^ shr 4];
      Result[i + 1] := HexString[P^ and $F];
      Result[i + 2] := ' ';
      Inc(P);
      Inc(i, 3);
    end;
  end;
2010-2-27 17:10
0
雪    币: 324
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
3
谢谢楼上!
2010-2-27 17:58
0
雪    币: 413
活跃值: (637)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
4
不知道楼主是要将 16进制字符 41  42  转成ASCII,还是只是变成41 42输出。
chr(16进制数) 成ASCII   用inttohex(16进制数,2)  成41 42这样的输出。
2010-2-27 23:30
0
游客
登录 | 注册 方可回帖
返回
//