Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Quelle © (2007-03-15 12:35:00)
Уважаемые мастера.
Как перевести данные из шестнадцатиричного формата
в текст.

Плохиш (2007-03-15 13:27:00) [1]
Преписываешь строку

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

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

Quelle (2007-03-15 13:10:00) [2]
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;

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

ANB (2007-03-15 13:07:00) [3]
HexToBin + F1

tytus (2007-03-15 12:48:00) [4]
Я так полагаю $FF -> "255" ?

Desdechado (2007-03-15 12:44:00) [5]
Шестнадцатиричные числа тоже строкой записываются.

Сергей М. (2007-03-15 12:43:00) [6]
Это и так уже текст, что и зачем еще преводить-то ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »