Hex in String umwandeln

[Neutral General]

ne doch nicht..

Delphi-Quellcode:

function Kill(Text: String): String;
var
  s : string;
begin
  Text := '35 D1 6F';
  while Text <> '' do
  begin
    if Pos(' ', Text) <> 0 then
    begin
      s := Copy(Text, 1, Pos(' ', Text)-1);
      Text := Copy(Text, Length(s)+2, MaxInt);
    end
    else
    begin
      s := Text;
      Text := '';
    end;
    Result := Result + Chr(StrToInt('$' + s));
end;
end;

das geht nicht...