Перевод из string в array of byte

write(a, SizeOf(a)); //SizeOf(a) - всегда равно 4 - для любых динамических массивов. :)

write(a, Length(a));

write(a, Length(a));

write(a, High(a));

procedure write(const Arr : array of byte);
var
  i : Integer;
begin
  for i := Low(Arr) to High(Arr) do begin
    //Код распечатки.
    ...
  end;

...
const
  gByte: array[0..3] of Byte = (функция('E1E2E3E4')); // сможет ли констант принять то что преобразует функция ($E1,$E2,$E3,$E4)?

type
  TArr = array of Byte;
 
function StrToByteArr(const aStr : String) : TArr;
var
  i : Integer;
begin
  SetLength(Result, Length(aStr) div 2);
  for i := 0 to High(Result) do
    Result[i] := StrToInt('$' + Copy(aStr, i*2 + 1, 2));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Arr : TArr;
begin
  Arr := StrToByteArr('E1E2E3E4');
  ...
end;

const
  a: array[1..4] of Byte = ($E1, $E2, $E3, $E4);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
  TArr = array of Byte;
 
var
  gArr : TArr;
 
function GetArrFromProcess(...) : TArr;
var
  ...;
begin
  ...;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //Здесь работаем с gArr. Первоначально его содержимое то, которое определено
  //в секции initialization.
  ...
end;
 
initialization
  gArr := GetArrFromProcess(...);
 
finalization
  gArr := nil;
 
end.