Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2017, 00:17   #1
GrabbeR
Пользователь
 
Регистрация: 17.03.2010
Сообщений: 43
По умолчанию Из ASCII в HEX

Доброго времени суток, форумчане.
Понадобилось перевести значения ASCII => HEX. Нужно, например, в строке 489045487 разделить каждую цифру запятой и предать ей HEX вид.
4,8,9,0,4,5,4,8,7 = 34,38,39,30,34,35,34,38,37

Так можно превратить только одно значение: 4 = 34
Код:
Function HexToAscii(Hex: String): String;
begin
   result := chr(StrToInt('$'+hex));
end;
GrabbeR вне форума Ответить с цитированием
Старый 18.03.2017, 00:24   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
  xIn:='489045487'; xOut:='';
  for i:=1 to Length(xIn) do xOut:=xOut+Format('%x,',[Ord(xIn[i])]);
запятую в конце сам убери ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.03.2017, 00:30   #3
GrabbeR
Пользователь
 
Регистрация: 17.03.2010
Сообщений: 43
По умолчанию

Ооо, спасибо! :-)
GrabbeR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ASCII 3D Kostia JavaScript, Ajax 5 31.12.2013 12:42
Ошибка. Берём hex-код, шифруем hex-код, собираем всё в файл. Poltish Общие вопросы Delphi 2 21.08.2013 12:57
file->HEX HEX->BIN kakawkin Общие вопросы Delphi 1 25.04.2012 01:02
перевести из ASCII в HEX fize Помощь студентам 7 25.12.2009 15:35
Перевод символов в hex(ASCII table) Beliuk Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 02.11.2009 08:25