Тема: Из ASCII в HEX
Показать сообщение отдельно
  #2  
Старый 18.03.2017, 07:55
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Так что ли:
Код:
Function AnsiToHex(C: Char): String;
begin
   result := IntToHext(Ord(C),2);
end;

...

hexS := '';
for I := 1 To Length(S) Do
begin
  if hexS <>  '' Then hexS := hexS+',';
  hexS := hexS + AnsiToHex(S[i]);
end;
Ответить с цитированием