Buchstaben in hexadezimal darstellen

[turboPASCAL]

mal so als Beispiel:

Delphi-Quellcode:

function HexToStr(HexStr: String): String;
var i, n: integer;
begin
  Result := '';
  n := 1;
  for i := 1 to length(HexStr) div 2 do
  begin
    Result := Result + chr( StrToInt('$' + HexStr[n] + HexStr[n + 1]) );
    inc(n, 2);
  end;
end;

Gruss