在Delphi中实现HexToStr函数和StrToHex函数

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