Dynamic Array Passing Data Example in Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type 
  TForm1 =class (TForm)
    Button1: TButton;
    procedure Button1Click (Sender: TObject);
  end ;

var
  Form1: TForm1;

implementation

{$ R * .dfm}

Type
  TMyByteArr = array of Byte;

procedure Proc (inArr: TMyByteArr;var OutArr: TMyByteArr);
begin
  SetLength (OutArr, Length (inArr));
  Move (inArr, outArr, Length (inArr));
end ;

procedure TForm1.Button1Click (Sender: TObject);
var
  arr1, arr2: TMyByteArr;
  i: Integer;
  str: string ;
begin 
  SetLength (arr1,3);
  arr1 [0]: = 11;
  arr1 [1]: = twenty two;
  arr1 [2]: = 33;

  Proc (arr1, arr2);
  for i: =0 to Length (arr2)-1 do str: = Format ('% s% d', [str, arr2 [i]]);
  ShowMessage (TrimLeft (str)); {11 22 33}
end ;

end .