Delphi 以十六进制显示数据内容

本文整理自网络，侵删。

 
下面这个函数没有进行效率优化，如果优化下会很快，会提高很多倍，不过满足一般的使用是够了。如果大家有兴趣，可以自己优化下，优化的主要方式是预先计算好需要的内存空间，然后直接填充，而不是象下面的算法一样，由于频率的拼接字符串，造成内存的不断分配释放。
 
function HexView(ABytes: TBytes): String;
var
  C, R, L, ARows, ACols: Integer;
  T: String;
  B: Byte;
begin
  L := Length(ABytes);
  ARows := (L shr 4);
  if (L and $F) <> 0 then
    Inc(ARows);
  Result := '     ';
  for C := 0 to 15 do
    Result := Result + IntToHex(C, 2) + ' ';
  Result := Result + SLineBreak;
  for R := 0 to ARows - 1 do
  begin
    Result := Result + IntToHex(R, 4) + ' ';
    ACols := L - (R shl 4);
    if ACols > 16 then
      ACols := 16;
    SetLength(T, 0);
    for C := 0 to ACols - 1 do
    begin
      B := ABytes[R * 16 + C];
      Result := Result + IntToHex(B, 2) + ' ';
      if (B >= $20) and (B <= $7E) then
        T := T + AnsiChar(B)
      else
        T := T + '.';
    end;
    for C := ACols to 15 do
      Result := Result + '   ';
    Result := Result + T + SLineBreak;
  end;
end;

来源：http://blog.qdac.cc/?p=3665
 

相关阅读 >>

Delphi integer.tryparse

Delphi 如何识别应用程序没有响应

Delphi exe执行程序dos参数的运用

Delphi shellexecute 发送邮件

Delphi winsock 域名获取远程服务器ip

Delphi中关于字符串的操作

Delphi 限制文本框中只接受数字

Delphi tlistview(tlistbox+图标显示)

Delphi idsmtp发送邮件的问题

Delphi 查找目录下文件（多文件查找）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 以十六进制显示数据内容