https://blog.csdn.net/lotusyangjun/article/details/8203521 一.在Setlength 被调用次数不多时,可直接使用以下代码进行释放var aa: array of integer; procedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin SetLength(aa, 1000); for I := 0 to 999 do begin aa[I] := i; en…