Hex in String umwandeln

[faux]

Delphi-Quellcode:

var
  input, tmp, output: string;
  i: integer;
begin
  input := '44 65 69 6E 65 20 51 75 65 6C 6C 65 20 73 74 69';
  for i := 1 to length(input) do
  begin
    if input[i] = ' ' then
    begin
      output := output + chr(strtoint(tmp));
      tmp := '';
    end
    else
      tmp := tmp + input[i];
  end;

So vielleicht?

Grüße
Faux