Пример кода : Передача сектора массива в процедуру
var
i : Integer;
Source : array[0..4] of Integer;
begin // Создание исходного массива с значениями элементов 0..4 для элементов 0..4
for i := 0 to 4 do
Source[i] := i; // Использование команды Slice, чтобы передать только первые 3 элемента // Source как открытый массив в процедуру ShowSlice.
ShowSlice(Slice(Source, 3));
end; // Показ массива неизвестного размера - он передан как 'Открытый' массив
procedure TForm1.ShowSlice(SubArray : array of Integer);
var
i : Integer;
begin // Показ каждого элемента этого массива
for i := 0 to Length(SubArray)-1 do
ShowMessage('SubArray['+IntToStr(i)+'] : '+ IntToStr(SubArray[i]));
end;