Hex in String umwandeln

[Lemmy1]

Sorry, zu schnell gelesen...wie wärs hiermit...?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  s, s2, Result : string;
begin
  s := '35 D1 6F';
  while s <> '' do
  begin
    if Pos(' ', s) <> 0 then
    begin
      s2 := Copy(s, 1, Pos(' ', s)-1);
      s := Copy(s, Length(s2)+2, MaxInt);
    end
    else
    begin
      s2 := s;
      s := '';
    end;

    Result := Result + Chr(StrToInt('$' + s2));
  end;
  Caption := Result;
end;