Тема: Из ASCII в HEX
Показать сообщение отдельно
  #3  
Старый 20.03.2017, 01:32
GrabbeR GrabbeR вне форума
Новичок
  
Регистрация: 15.03.2012
Сообщения: 53
Версия Delphi: 7
Репутация: 10
По умолчанию
Спасибо, сделал так:
Код:
xIn:='489045487'; xOut:='';
for i:=1 to Length(xIn) do xOut:=xOut+Format('%x,',[Ord(xIn[i])]);
Ответить с цитированием