Показать сообщение отдельно
  #14  
Старый 23.04.2011, 03:42
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от AND_REY
Задача интересная
Вот что получилось StrToBin/BinToStr: Вложение 2070


Да проще надо быть. IntToHex сделает все, что нужно. При этом нам точно дочтаточно будет 1 байта, т.е. в 16 представлении всегда 2 цифры, а ведущий 0 будет функцией подствлен автоматически.
Ответить с цитированием