delphi 中，怎么把一段字符串，转换成16进制编码，之后再把16进制编码，还原成原先的字符串？

给你写了两个函数 function Encode16(const sourstr : string) : string; //把字符串转换成十六进制编码 var i : integer; begin result := ''; for i := 0 to length(sourstr) - 1 do begin result := result + IntToHex(ord(sourstr[i+1]),2) ; end;