CHAR和HEX互相转换

Function StrToHexStr(Const S: String): String; //字符串转换成16进制字符串(方法一) 
Var 
  I: Integer; 
Begin 
  For I := 1 To Length(S) Do 
  Begin 
    If I = 1 Then 
      Result := IntToHex(Ord(S[1]), 2) 
    Else Result := Result + ' ' + IntToHex(Ord(S[I]), 2); 
  End; 
End; 

function strToHexStr(str:string):string; //字符串转换成16进制字符串(方法二)  
var 
c:char;  
ss:string;  
begin 
while str<>'' do begin 
c:=str[1];  
ss:=ss+format('%0x',[ord(c)]);  
delete(str,1,1);  
end;  
strtohexStr:= ss;  
end;  

Function HexStrToStr(Const S: String): String; //16进制字符串转换成字符串 
Var 
  t: Integer; 
  ts: String; 
  M, Code: Integer; 
Begin 
  t := 1; 
  Result := ''; 
  While t <= Length(S) Do 
  Begin 
    While (t <= Length(S)) And (Not (S[t] In ['0'..'9', 'A'..'F', 'a'..'f'])) Do 
      Inc(t); 
    If (t + 1 > Length(S)) Or (Not (S[t + 1] In ['0'..'9', 'A'..'F', 'a'..'f'])) Then 
      ts := '$' + S[t] 
    Else 
      ts := '$' + S[t] + S[t + 1]; 
    Val(ts, M, Code); 
    If Code = 0 Then 
      Result := Result + Chr(M); 
    Inc(t, 2); 
  End; 
End; 

转载于:https://www.cnblogs.com/Bung/archive/2011/05/17/2048335.html