如何将16进制的字符串转换成字节型的数组？

Question

如：s:='01IC';
请指教

Answer 1

var
  BArray:Array Of Byte;
  H:String;
  I,L:Integer;
begin
  H:='0A45B90';
  L:=Length(H) Div 2;
  If Length(H) mod 2 >0 then Inc(L);
  SetLength(BArray,L);
  for I:=0 to L-1 do
  begin
    BArray[I]:=StrToInt('$'+Copy(H,2*I-1,2));
  end;
end;

Answer 2

var
  BArray:Array Of Byte;
  H:String;
  I,L:Integer;
begin
  H:='0A45B90';
  L:=Length(H) Div 2;
  If Length(H) mod 2 >0 then Inc(L);
  SetLength(BArray,L);
  for I:=0 to L-1 do
  begin
    BArray[I]:=StrToInt('$'+Copy(H,2*I+1,2));
  end;
end;