18.03.2017, 07:55
|
Модератор
|
|
Регистрация: 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;
|