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

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

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

HextoString

KLAUS © (2006-05-19 20:22:00)
Всем Привет!
Подскажите плиз кто делал как организовать HextoString
МОжно даже пример :)
Заранее СпасибО!!

KLAUS (2006-05-19 21:20:00) [1]
begin...end
Классный примерчик!!

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

Джо (2006-05-19 21:12:00) [3]
[11] vs [12] — бью себя по голове, все ведь проще.

begin...end (2006-05-19 21:08:00) [4]
> 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:05:00) [5]
> Просто есть строка '4B4C415553' (в HEx виде) - Если её перевести
> в String то получаем 'KLAUS'. Вот это мне нужно....

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

Джо (2006-05-19 21:02:00) [6]
> [8] begin...end © (19.05.06 20:43)

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

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

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

begin...end (2006-05-19 20:43:00) [8]
> Джо © (19.05.06 20:37) [5]
> Ну, и потом, соответственно, IntToStr.

Зачем?

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

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

KLAUS (2006-05-19 20:42:00) [9]
Джо
Это текст в Hex виде! Вот теперь из этого нужно обратно в String!

Джо (2006-05-19 20:38:00) [10]
> есть текст '48454C5020504C454153452048454C50' уже переведенный
> в Hex,

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

Джо (2006-05-19 20:37:00) [11]
Ну, и потом, соответственно, IntToStr.

begin...end (2006-05-19 20:36:00) [12]
HexToBin

Джо (2006-05-19 20:36:00) [13]
HexToBin

KLAUS (2006-05-19 20:35:00) [14]
НУ вот допустим есть текст '48454C5020504C454153452048454C50' уже переведенный в Hex, и как при помощи IntToStr() это сделаешь?

TUser (2006-05-19 20:26:00) [15]
А чем он должен отличаться от IntToStr() ?

Наверх

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