十六进制问题？

Question

如何将一串十六进制的编码还原成字符串，急啊！

Answer 1

//把字符串转换成四位十六进制编码
Function MyTenToHex(SStr:String):String;
var
    i:Integer;
    TStr:String;
begin
    for i:=1 to Length(SStr) do
        TStr:=TStr+IntToHex(Ord(Sstr[i]),2);
    Result:=TStr;
end;Function MyHexToTen(SStr:String):String;
var
    i:Integer;
    TStr:String;
begin
    for i:=1 to Length(SStr) div 2 do
        TStr:=TStr+Chr(Strtoint('$'+Sstr[2*i-1]+Sstr[2*i]));    Result:=TStr;
end;

Answer 2

up, 
MyHexToTen加上 div 2 余数的转化

Answer 3

IntToHex(AInt,n)
要一个循环，n未字节数。

Answer 4

我的意思是说，比如：“我来了”的十六进制编码是“CE D2 C0 B4 C1 CB”，我如何将“CE D2 C0 B4 C1 CB”还原为“我来了”。

Answer 5

IntToHex(AInt,n)
要一个循环，n未字节数。

Answer 6

var
 s:string; s:=Chr(StrToInt('$CE'))+Chr(StrToInt('$D2'))+....