Delphi Setlength 内存释放总结

目录(?)[-]

1. 一在Setlength 被调用次数不多时可直接使用以下代码进行释放
2. 二如果是作为临时变量赋值给Result作为函数的返回值时此时除释放bb外还需释放临时变量aa
3. 三当Setlength在for 或while 循环中使用被频繁调用很多次时极易抛出EoutOfMemory异常此时建议将setlengt拿到循环外部使用或一次性调用为动态数组或结构分配足够大的空间

一、在Setlength 被调用次数不多时，可直接使用以下代码进行释放

[delphi]  view plain copy

1. var  
2.   aa: array of integer;  
3.   
4. procedure TForm1.Button1Click(Sender: TObject);  
5. var  
6.   I: Integer;  
7. begin  
8.   SetLength(aa, 1000);  
9.   for I := 0 to 999 do  
10.   begin  
11.     aa[I] := i;  
12.    end;  
13. end;  
14.   
15. procedure TForm1.Button2Click(Sender: TObject);  
16. begin  
17.   SetLength(aa, 0);  
18. end;  
19. //这样就OK　了  

二、如果是作为临时变量，赋值给Result作为函数的返回值时，此时除释放bb外，还需释放临时变量aa。

 

[delphi]  view plain copy

1.   type  
2.       Taa=array of Integer;  
3.   
4. procedure TForm1.Button3Click(Sender: TObject);  
5. var bb : Taa;  
6. begin  
7.   
8.     bb := getaa;  
9.     SetLength(bb,0);   //执行此行，内存无变化  
10. end;  
11.   
12.   
13. function TForm1.getaa:Taa;  
14. var i : Integer;  
15. begin  
16.     SetLength(aa,10000000);   //如果采用SetLength(Result,10000000); 直接为Result赋值然后返回，则在上面Button3Click可释放内存  
17.      for i := 0 to 10000000 - 1 do  
18.      begin  
19.         aa[i] := i + 1;  
20.      end;  
21.      Result := aa;  
22. end;  
23.   
24.   
25.   
26. procedure TForm1.Button2Click(Sender: TObject);  
27. begin  
28.     SetLength(aa,0);  //执行此行，内存占用才减少  
29. end;  

三、当Setlength在for 或while 循环中使用，被频繁调用很多次时，极易抛出EoutOfMemory异常。此时建议将setlengt拿到循环外部使用，或一次性调用，为动态数组或结构分配足够大的空间。