function Slice(var A: array; Count: Integer): array;
Slice函数把数组 A的前面Count个元素作为开放数组返回, 利用它可以方便的使用动态分配的
静态数组而且保持Delphi的数组的使用优点..
例子:
type
TPolygon = record
NumPoint: 0..MaxInt;
Points : array[1..MAX_POINTS] of TPoint;
end;
procedure DrawPolygon(Canvas: TCanvas; const Polygon: TPolygon);
begin
Canvas.Polygon(Slice(Polygon.Points, Polygon.NumPoint));
end;
Returns a sub-section of an array.
Unit
System
Category
miscellaneous routines
function Slice(var A: array; Count: Integer): array;
Description
Use Slice to select a sub-section (slice) of an array to be passed as an open array parameter. Slice is only allowed as a parameter in a call to a procedure or function that expects an open array parameter. Slice selects the first Count elements of the array given by A to be passed as an open array parameter. A can be an open array parameter itself, allowing dynamically allocated arrays to be passed to open array parameters.