Из шестнадцатиричного формата в текст

← →
Quelle (2007-03-15 12:35) [0]

Уважаемые мастера.
Как перевести данные из шестнадцатиричного формата
в текст.

← →
Сергей М. © (2007-03-15 12:43) [1]

Это и так уже текст, что и зачем еще преводить-то ?

← →
Desdechado © (2007-03-15 12:44) [2]

Шестнадцатиричные числа тоже строкой записываются.

← →
tytus © (2007-03-15 12:48) [3]

Я так полагаю $FF -> "255" ?

← →
ANB © (2007-03-15 13:07) [4]

HexToBin + F1

← →
Quelle (2007-03-15 13:10) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
str:char;
transtext:string;
begin
for x:=1 to Length(Input.Text) do
begin
Str:=Input.Text[x];
TransText:=TransText+Format("%x", [Ord(Str)]);
end;
Memo1.Text:=transtext;
end;

Как обратно сделать?

Преписываешь строку

> TransText:=TransText+Format("%x", [Ord(Str)]);

как
TransText:=TransText+Format("%2x", [Ord(Str)]);
В обратную сторону, берёшь по два символа, добавляешь к ним спереди "$" и с помощью StrToInt получаешь исходный код символа...

Из шестнадцатиричного формата в текст Найти похожие ветки