有关TList的资源释放?
在程序中对任意TList对象写个FreeList是否正确?
procedure FreeList(AList:TList);
var
i:integer;
begin
for i := 0 to AList.Count - 1 do
begin
dispose(AList[i]);
end;
AList.Clear;
AList.Free;
end;
是否要在释放时指名对象呢?
在程序中对任意TList对象写个FreeList是否正确?
procedure FreeList(AList:TList);
var
i:integer;
begin
for i := 0 to AList.Count - 1 do
begin
dispose(AList[i]);
end;
AList.Clear;
AList.Free;
end;
是否要在释放时指名对象呢?
for i:=AList.Count DownTo 0 do