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
时间: 2024-11-02 20:09:00