Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

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

← →
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;

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

---

← →
Плохиш ©   (2007-03-15 13:27) [6]

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

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

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

В обратную сторону, берёшь по два символа, добавляешь к ним спереди "$" и с помощью StrToInt получаешь исходный код символа...

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.046 c