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)

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

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

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

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

> 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

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

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

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

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