CHAR和HEX互相转换

最新推荐文章于 2024-03-04 16:46:19 发布

转载最新推荐文章于 2024-03-04 16:46:19 发布 · 8k 阅读

文章标签：

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;