如何切片动态数组？

Question

如何将动态数组切片到多个子数组？Slice()Delphi中的函数不支持动态数组.那怎么办呢？欢迎使用通用解决方案.

program Project10;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  A: Array of Integer;
begin
  SetLength(A, 4);
  Slice(A, 2); // [dcc32 Error] Project10.dpr(15): E2193 Slice standard function only allowed as open array argument
end.

Answer 1

用Copy(A, 0, 2)而不是Slice(A, 2).

关键是你需要一个"开放数组参数"(在这种情况下你需要Slice)或者你需要一个常规数组,在这种情况下Copy将提供一个很好的解决方案.