перевод из текста в hex и обратно

[d4hl]

Доброго времени суток. Прошу помощи в решении задачи: в edit вводим текст к примеру "Конст", по нажатию button1 в edit2 переводит текст в hex (пример из онлайн передочика %41a%43e%43d%441%442), по нажатию button2 в edit2 переводит значение из hex'a в текст.

[Stilet]

%41a%43e%43d%441%442

Это не HEX, это скорее кодировка запроса для интернета.
А если бы это была 16-ричка то можно было-бы порулить в такое:

var s,p:String;
s:='%41a%43e%43d%441%442';
SetLength(p,Length(s));
HexToBin(Pchar(s),PChar(p),Length(s));

[d4hl]

Сообщение от Stilet

Это не HEX, это скорее кодировка запроса для интернета.
А если бы это была 16-ричка то можно было-бы порулить в такое:

var s,p:String;
s:='%41a%43e%43d%441%442';
SetLength(p,Length(s));
HexToBin(Pchar(s),PChar(p),Length(s));

Видимо я не правильно выразился. Вообщем есть файл, с него построчно читается hex, вот пример строки: 041a043e043d04410442 (так выглядит слово "Конст"). Ещё допустим слово "privet" (так оно будет выглядить после перевода: 007000720069007600650074).

Вот пример транслятора... http://centricle.com/tools/ascii-hex/