Скачать: CL | DM;

HextoString   Найти похожие ветки 

← →
KLAUS ©   (2006-05-19 20:22) [0]

Всем Привет!
Подскажите плиз кто делал как организовать HextoString
МОжно даже пример :)
Заранее СпасибО!!

---

← →
TUser ©   (2006-05-19 20:26) [1]

А чем он должен отличаться от IntToStr() ?

---

← →
KLAUS ©   (2006-05-19 20:35) [2]

НУ вот допустим есть текст "48454C5020504C454153452048454C50" уже переведенный в Hex, и как при помощи IntToStr()  это сделаешь?

---

← →
begin...end ©   (2006-05-19 20:36) [3]

HexToBin

---

← →
Джо ©   (2006-05-19 20:36) [4]

HexToBin

---

← →
Джо ©   (2006-05-19 20:37) [5]

Ну, и потом, соответственно, IntToStr.

---

← →
Джо ©   (2006-05-19 20:38) [6]

> есть текст "48454C5020504C454153452048454C50" уже переведенный
> в Hex,

Кстати, как это понимать?

---

← →
KLAUS ©   (2006-05-19 20:42) [7]

Джо
Это текст в Hex виде! Вот теперь из этого нужно обратно в String!

---

← →
begin...end ©   (2006-05-19 20:43) [8]

> Джо ©   (19.05.06 20:37) [5]
> Ну, и потом, соответственно, IntToStr.

Зачем?

Насколько я понял, автору нужно получить строку символов из строки, содержащей hex-представления кодов этих символов.

Впрочем, не исключаю, что мне следует уменьшить мощность телепатора.
:о)

---

← →
KLAUS ©   (2006-05-19 20:58) [9]

Блин, как IntToStr может помощь...объясните плиз...просто как я понимаю
..я переввожу число из HEx в int (допустим 4B), у меня получается 75, но мне то нужет строковый эквивалент 4B, т.е. чтоб получилась буква K.
МОжет меня не правильно поняли...извеняюсь
Просто есть строка "4B4C415553" (в HEx виде) - Если её перевести в String то получаем "KLAUS". Вот это мне нужно....

---

← →
Джо ©   (2006-05-19 21:02) [10]

> [8] begin...end ©   (19.05.06 20:43)

> Впрочем, не исключаю, что мне следует уменьшить мощность
> телепатора.

Нет, скорее, это у меня телепатор не в ту сторону стелепатировал.

---

← →
Джо ©   (2006-05-19 21:05) [11]

> Просто есть строка "4B4C415553" (в HEx виде) - Если её перевести
> в String то получаем "KLAUS". Вот это мне нужно....

Ну, перевести каждую пару символов с помощью функции HexToBin в значение типа Char. Затем из этих Char"ов конкатенацией (сложением) составить строку. Всё, вроде.

---

← →
begin...end ©   (2006-05-19 21:08) [12]

> KLAUS ©   (19.05.06 20:58) [9]

Ответ уже дан. См. [4], [3].

var
 S, Hex: string;
begin
 Hex := "4B4C415553";
 SetLength(S, Length(Hex) div 2);
 HexToBin(PChar(Hex), PChar(S), Length(S));
 ShowMessage(S)
end

---

← →
Джо ©   (2006-05-19 21:12) [13]

[11] vs [12] — бью себя по голове, все ведь проще.

---

← →
KLAUS ©   (2006-05-19 21:18) [14]

Отлично!! Спасибо Всем!
А то у меня только для одного чёт только символа получилось... СПАСИБО!!
var
 ChS: String[2];
 Ch: Char;
begin
 ChS := "4B";
 try
   Ch := Char(StrToInt("$"+ChS));
 except
      Ch := #0;
 end;
 ShowMessage(Ch);
end;

---

← →
KLAUS ©   (2006-05-19 21:20) [15]

begin...end
Классный примерчик!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c