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;
特别注意:Delphi数组的赋值,SetLength没有作用
最新推荐文章于 2022-10-06 21:51:26 发布