特别注意：Delphi数组的赋值，SetLength没有作用

type
TIntegerAry = array of Integer;


procedure TForm1.Button1Click(Sender: TObject);
var
LIntAry: TIntegerAry;
LTmpAry: TIntegerAry;
begin
SetLength(LIntAry, 2);
LIntAry[0] := 100;


LTmpAry := LIntAry;
LTmpAry[0] := 3456; // 改变了 LIntAry[0]


SetLength(LTmpAry, 1); // 但是并没有改变LIntAry的长度
ShowMessage(IntToStr(Length(LIntAry)));
end;