Доброго времени суток, форумчане.
Понадобилось перевести значения 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;