function Slice

 function Slice ( SourceArray : array; Count : Integer ) : array;

描述：Slice函数从源数组SourceArray中第一个元素开始，共Count个元素，创建成一个子数组。

这个子数组只能用于作为一个过程或函数的开放数组参数。

开放数组参数是在编译时不知道数组元素数量的。它允许子程序使用可变大小的数组。

 var   i : Integer; 
        Source : array[0..4] of Integer; 
 begin   // 创建一个源数组，元素个数与数组为0..4  
   for i := 0 to 4 do    
      Source[i] := i;   
   // 使用Slice函数传递源数组的前3个元素， 
   // 作为下面子程序的开放数组参数。   
   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; 
程序运行结果：

SubArray[0] : 0

SubArray[1] : 1

SubArray[2] : 2