Из ASCII в HEX

[GrabbeR]

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

[Руслан]

Цитата GrabbeR @ 17.03.17, 21:13

Доброго времени суток, форумчане.

Ку!

Цитата GrabbeR @ 17.03.17, 21:13

Понадобилось перевести значения ASCII => HEX

Сложности то в чем?

Цитата GrabbeR @ 17.03.17, 21:13

Так можно превратить только одно значение: 4 = 34

Магия!
Но почему только одно? Ведь вроде бы функцию (если уж она устраивает), можно и дважды вызвать, вероятно?

[Славян]

Можно как-то так:

Function HexToAscii(Hex: String): String;
var s:string;
        I:integer;
begin
   s := '';
   for i:=1 to Hex.Length do
     s:= s + IntToStr(ord(Hex[i])-8) + ',';
   result := s; //chr(StrToInt('$'+hex));
end;

(долго, конечно, всё время строки приписывать, но если время не шибко важно, то можно...)

[GrabbeR]

Спасибо, сделал так:

xIn:='489045487'; xOut:='';
for i:=1 to Length(xIn) do xOut:=xOut+Format('%x,',[Ord(xIn[i])]);

[Славян]

Можно и так, но всё же крайне дорогие же операции приписывания строк и запуски создания строки по формату! Лучше=быстрее уж заранее завести строку длины len*3+1 и записать в нужные места '3', ',' и число (аккуратно переведённое (mod'ом ?)).