Клуб программистов

    Функция Slice создает подмассив из первых Count элементов массива SourceArray.

     Эта функция может использоваться ТОЛЬКО как аргумент для параметра с типом "открытый массив" в процедуре или функции.

     Параметр с типом "открытый массив" имеет неизвестное число элементов массив на момент компиляции.

     Это позволяет процедурам работать с массивами переменной длины.

var
   i : Integer;
   Source : array[0..4] of Integer;

begin
   // Create the source array with 0..4 values for elements 0..4
   for i := 0 to 4 do
      Source[i] := i;

   // Use the Slice command to pass just the first 3 elements of Source as
   // an open array to the ShowSlice procedure below.
   ShowSlice(Slice(Source, 3));
end;

// Show an array of unknown size - it is passed as an 'Open' array
procedure TForm1.ShowSlice(SubArray : array of Integer);
var
   i : Integer;

begin
   // Show every element of this array
   for i := 0 to Length(SubArray)-1 do
      ShowMessage('SubArray['+IntToStr(i)+'] : '+ IntToStr(SubArray[i]));
end;

SubArray[0] : 0
SubArray[1] : 1
SubArray[2] : 2