No hay respuestas en este tema

[enecumene]

delphi

function HexToChr(strData:string): string;
    var sfinal:string; hexc:cardinal; i:integer;
    begin
    i:=1;
    while i<=length(strData) do
    begin
    hexc := strtoint('$' + copy(strData,i,2));
    sfinal := sfinal + 'chr(' + inttostr(hexc) + ') + ';
    i:=i+2;
    end;
    result := copy(sfinal,1,length(sfinal) - 3);
    end;

Saludos.