Delphi中实现HexToStr函数和StrToHex函数

本文整理自网络，侵删。

 
function TransChar(AChar: Char): Integer;
begin
  if AChar in ['0'..'9'] then
  Result := Ord(AChar) - Ord('0')
  else
  Result := 10 + Ord(AChar) - Ord('A');
end;
function StrToHex(AStr: string): string;
var
  I ,Len: Integer;
  s:char;
begin
  len:=length(AStr);
  Result:='';
  for i:=1 to len  do
  begin
    s:=AStr[i];
    Result:=Result +' '+IntToHex(Ord(s),2); //将字符串转化为16进制字符串，
                                            //并以空格间隔。
  end;
  Delete(Result,1,1); //删去字符串中第一个空格
end;
function HexToStr(AStr: string): string;
var
  I,len : Integer;
  CharValue: Word;
  Tmp:string;
  s:char;
begin
  Tmp:='';
  len:=length(Astr);
  for i:=1 to len  do
  begin
    s:=Astr[i];
    if s <> ' ' then Tmp:=Tmp+ string(s);
  end;
  Result := '';
  For I := 1 to Trunc(Length(Tmp)/2) do
  begin
    Result := Result + ' ';
    CharValue := TransChar(Tmp[2*I-1])*16 + TransChar(Tmp[2*I]);
    if (charvalue < 32) or (charvalue > 126)  then Result[I] := '.'   //非可见字符填充
    else Result[I] := Char(CharValue);
  end;
end;

来源：https://www.cnblogs.com/tc310/p/4587287.html
 

相关阅读 >>

Delphi 通过指点操作获得窗口句柄

minsperday：一天中有多少分钟

Delphi获取网卡mac地址

Delphi数据库实现从最后一条记录向上查询至首记录

Delphi xe 播放 gif 动画

Delphi combobox1dropdown 生成动态下拉列表

用tidftp控件实现ftp协议

Delphi 缓冲文件流-tbufferedfilestream tfilestream 性能测试

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi从路径取得文件名的简易方法

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

转载请注明出处：木庄网络博客 » Delphi中实现HexToStr函数和StrToHex函数