Nochmals HexToString und StringToHEx

[fapsons]

Delphi-Quellcode:

function StringToHex(s:string) : string; 
var i : integer; 
begin 
   result := ''; 
   for i := 1 to length(s) do 
   begin 
       if i = length(s) then 
       result := result + intToStr(ord(s[i])) 
          else 
          result := result + IntToStr(ord(s[i])) + ''; 
       end; 
end;

CHR soll ja die Umkehrfunktion sein. Komme damit aber trotzdem nicht zurecht...