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;