关于字符与ASC码转换的问题

Question

我想　将ASC 码转换成　对应的　字符
比如说　将　97 转换成　字符　a  ，
应该怎么办呢？

Answer 1

//============================================================================== 
//字符串转换为十六进制字符串:例如‘ABCD’-> ‘41424344’************************* 
//============================================================================== 
function   BinaryToHexStr(Str:string):string; 
var   i:   integer; 
begin 
    Result   :=   ' '; 
    for   i:=1   to   Length(Str)   do   Result   :=   Result   +   IntToHex(Ord(Str[i]),2); 
end; //============================================================================== 
//十六进制字符串转换为字符串:例如‘41424344’-> ‘ABCD’************************* 
//============================================================================== 
function   HexStrToBinary(Str:string):string; 
var   i,   Len:   integer; 
        Point:   Pointer; 
begin 
    Len   :=   Length(Str)   div   2; 
    Point   :=   AllocMem(Len   +   1);//Len   +   1是为nil结尾的标志空出一个字节 
    Pointer(Result)   :=   Point; 
    for   i:=0   to   Len   do   Result[i]:=   Chr(StrToint( '$ '   +   Copy(Str,   i*2-1,   2))); 
    ReallocMem(Point,   Len   +   1); 
end;