Delphi Setlength 内存释放总结

本文整理自网络，侵删。

 

一、在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;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(aa, 0);
end;
//这样就OK　了
二、如果是作为临时变量，赋值给Result作为函数的返回值时，此时除释放bb外，还需释放临时变量aa。
 

type
Taa=array of Integer;

procedure TForm1.Button3Click(Sender: TObject);
var bb : Taa;
begin

bb := getaa;
SetLength(bb,0); //执行此行，内存无变化
end;


function TForm1.getaa:Taa;
var i : Integer;
begin
SetLength(aa,10000000); //如果采用SetLength(Result,10000000); 直接为Result赋值然后返回，则在上面Button3Click可释放内存
for i := 0 to 10000000 - 1 do
begin
aa[i] := i + 1;
end;
Result := aa;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(aa,0); //执行此行，内存占用才减少
end;

三、当Setlength在for 或while 循环中使用，被频繁调用很多次时，极易抛出EoutOfMemory异常。此时建议将setlengt拿到循环外部使用，或一次性调用，为动态数组或结构分配足够大的空间。
--------------------- 
作者：北环阳光 
原文：https://blog.csdn.net/lotusyangjun/article/details/8203521 

 

相关阅读 >>

Delphi中使用可修改的常量

Delphi过程函数传递参数的八种方式

Delphi 图像文件加载到剪切板，再从剪切板绘制图像

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi查找同一内网所有主机

Delphi webbrowser1 缩放网页

Delphi 程序窗体最大化、组件居中显示代码

Delphi idhttp1 获取网页代码

Delphi-基础（for循环）

Delphi tpath

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Setlength 内存释放总结