Размер динамического массива

[Nester]

Var DynamicArray: Array of Byte; //Объявлен динамический массив


Procedure AAA ( Var A: Array of Byte );
 Begin
  SetLength ( A, 10 ) // Установка новой длины массива
End;


Procedure TForm1.Button1Click(Sender: TObject);
 Begin
  AAA ( DynamicArray ); // Вызов процедуры
  ShowMessage ( 'Длина массива: ' + IntToStr ( Length ( DynamicArray ) ) ) // Результат: Длина массива: 10
End;

На строке SetLength ошибка : Incompatible types

что я делаю не так?

[BDA]

Когда "array of" синтаксис используется в аргументах процедуры, то этот аргумент будет иметь тип открытый массив, а не динамический. А изменять размер открытого массива нельзя. Например, можно задать свой тип:

type
  TByteArray = Array of Byte;

var
  DynamicArray: TByteArray;

Procedure AAA(var A: TByteArray);
Begin
  SetLength(A, 10);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  AAA(DynamicArray);
  ShowMessage('Длина массива: ' + IntToStr(Length(DynamicArray)));
End;

[Nester]

Сообщение от BDA

Когда "array of" синтаксис используется в аргументах процедуры, то этот аргумент будет иметь тип открытый массив, а не динамический. А изменять размер открытого массива нельзя. Например, можно задать свой тип:

type
  TByteArray = Array of Byte;

var
  DynamicArray: TByteArray;

Procedure AAA(var A: TByteArray);
Begin
  SetLength(A, 10);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  AAA(DynamicArray);
  ShowMessage('Длина массива: ' + IntToStr(Length(DynamicArray)));
End;

Отлично! То что нужно! Буду знать!
Спасибо вам!!!