如何释放 Delphi Prism 中对象的数组列表？

Question

我需要释放存储在 ArrayList 中的对象列表。我知道你可以在Delphi中调用Free procedure，但是在Delphi Prism中没有free procedure。我不仅想从列表中删除对象，还想将其从内存中释放。

例如，假设我有以下类

TheClass = Class
 private
 theStr:String;
 protected
 public
end;

method TheForm;
begin
 TheArrayList:=new ArrayList;
end;

要添加对象，我会这样做：

method TheForm.AddToList;
var
 tmpObj:TheClass;
begin
 tmpObj := new TheClass;
 TheArrayList.Add(tmpObj);
end;

要从列表中删除对象，这就是我会这样做的方法，但没有免费的 程序。

method TheForm.DeleteFromList;
var I:integer;
begin
 for I:=0 to theArrayList.count-1 do
 begin
  theClass(theArrayList[I]).free;     <-------I know this doesnt work.
  theArrayList.RemoveAt(I);
 end;
end;
end;

Delphi Prism 中如何释放对象列表？

谢谢，

Answer 1

由于您的类没有占用任何非托管资源，例如文件、窗口句柄、数据库连接等。除了让 .net 垃圾收集器在认为时机成熟时释放内存之外，您无需执行任何操作。

尝试强制垃圾收集器提前运行通常会导致性能比简单地让它完成工作更差。

如果您有一个包含非托管资源的类，那么您应该遵循 IDisposable 模式。

Answer 2

while theArrayList.count > 0 do
  theArrayList.RemoveAt(0);

GC会帮助你。

Answer 3

Delphi Prism 程序在.NET 上运行。不需要释放任何对象，因为垃圾收集器最终会这样做。正如有人已经评论过的那样，如果对象实现了它，您可以调用 IDisposable.Dispose() 来释放内存以外的其他资源。

还有 using 结构，有点像 Delphi 中的 Create-try-finally-Free-end ：

using MyArrayList = new ArrayList do
begin
  // use ArrayList...
end; // IDisposable(ArrayList).Dispose is called, if applicable.

当然，这不适用于数组中的项目。如果您确实需要，可以对每个对象调用 Dispose。但一般来说，这是没有必要的。

所以：

method TheForm.DeleteFromList;
begin
  theArrayList.Clear;
end;

不需要释放任何东西。