String a Cadena de Bytes a cadena Hexadecimal

[ecfisa]

Hola

Si no necesitas el arreglo de bytes para otra tarea, creo que podés ahorrar un paso:

Código Delphi [-]
...
type
  TArrayStr = array of ShortString;

function StrToHex(WStr: WideString): TArrayStr;
var
  j: integer;
begin
   SetLength(Result, Length(WStr));
   for j:= 0 to Length(WStr) - 1 do
     Result[j]:= IntToHex(Ord(WStr[j+1]) - Ord('0'), 2);
end;
...

Un saludo.