delphi TArray 转换16进制 发送串口问询

方法1：

var

senda,getb:TArray<byte>;

begin

   s:='010400120002D1CE';

   n:=length(s) div 2;

   setlength(getb,255);

   setlength(senda,n);

   for I := 1 to n do

   begin

      s1:=copy(s,i*2-1,2);

      senda[I-1]:=HexStrToByte(s1);

   end;

  io.WriteBytes(senda);

方法2：

var

ab:TArray<byte>;

   SetLength(ab, 8);

  ab[0] := $01;

  ab[1] := $04;

  ab[2] := $00;

  ab[3] := $12;

  ab[4] := $00;

  ab[5] := $02;

  ab[6] := $D1;

  ab[7] := $CE;

 io.WriteBytes(senda);