blocks|key|3964874|text|简单的回答是不。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3964875|Delphi不是一种完整的垃圾收集语言，用户定义的类型应该手动分配和释放。它只为一些内置类型提供自动收集，如字符串、动态数组和接口，以便于使用。|3964876|但是在某种程度上，您可以使用使用引用计数进行垃圾收集的接口。|3964877|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|I|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|J|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|G|$]]

Simple answer No.

Delphi is not a complete garbage collection language, user-defined types should be manually allocated and deallocated. It only provide automatic collection, for a few built-in types, such as strings, dynamic arrays and interfaces for ease of use.

But you can use interfaces which uses reference counting for garbage collection for some extent.

blocks|key|1502350|text|是的，确实如此。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1502351|Delphi+Win32不包括开箱即用的垃圾收集器，所以这个问题的其他答案在技术上是正确的。然而，这并不意味着它是不可能的，或者它还不存在。多亏了Delphi的可替换内存管理器，Barry+Kelly在2004年为Boehm+garbage+collector实现了一个全功能的wrapper。|offset|length|1502352|它包括演示其使用的示例代码(基本上是创建未分配的对象并观察GC对它们的处理)。有比Boehm更高级的GC，但这清楚地证明了它的可能性，而且它可以几乎透明地使用。只需将gc单元添加到项目的uses子句的开头即可。|1502353|虽然我没有听说过任何项目尝试这样做，但是没有什么能阻止人们包装或移植更高级的gc。|1502354|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/users/3712/barry-kelly|1|http://www.hpl.hp.com/personal/Hans_Boehm/gc/|2|http://codecentral.embarcadero.com/Item/21646^0|0|2H|B|0|2Z|N|1|3V|7|2|0|0|0^^$0|@$1|2|3|4|5|6|7|V|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|W|8|@]|9|@$D|X|E|Y|1|Z]|$D|10|E|11|1|12]|$D|13|E|14|1|15]]|A|$]]|$1|F|3|G|5|6|7|16|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|17|8|@]|9|@]|A|$]]|$1|J|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|K|$L|$5|M|N|O|A|$P|Q]]|R|$5|M|N|O|A|$P|S]]|T|$5|M|N|O|A|$P|U]]]]

Yes, it does.

Delphi Win32 does not include a garbage collector out of the box so the other answers to this question are technically correct. However, this doesn't imply that it isn't possible or that one doesn't already exist. Thanks to Delphi's replaceable memory manager <a href="https://stackoverflow.com/users/3712/barry-kelly">Barry Kelly</a> implemented a fully functional <a href="http://codecentral.embarcadero.com/Item/21646" rel="noreferrer">wrapper</a> for the <a href="http://www.hpl.hp.com/personal/Hans_Boehm/gc/" rel="noreferrer">Boehm garbage collector</a> back in 2004.

It includes sample code demonstrating its use (basically creating unassigned objects and watching the GC chew them up). There are more advanced GCs than the Boehm GC but this clearly demonstrates its possible and it can be used almost transparently. You just add the gc unit to the beginning of your project's uses clause.

And while I've not heard of any projects attempting it there is nothing preventing someone from wrapping or porting a more advanced gc.

blocks|key|301038|text|在垃圾收集的通常意义上，运行时检测未引用的对象并销毁它们，或者以其他方式回收未使用的资源，不，Delphi没有垃圾收集。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|301039|如果使用原生Delphi，那么最接近垃圾收集的是各种引用计数的类型，包括字符串、接口、变体和动态数组。当你的程序确定它们不再被使用时，这些类型将被自动清除，但它通过在这些对象进入和离开当前作用域时保持引用计数来做到这一点。您还拥有所有权的概念，它将在所有者被销毁时销毁所拥有的组件。|301040|如果您使用Delphi+for+.Net，那么您就隐式地拥有了底层运行时的垃圾回收。|301041|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|I|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|J|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|G|$]]

In the usual sense of garbage collection, where the runtime detects unreferenced objects and destroys them or otherwise reclaims unused resources, no, Delphi does not have garbage collection.

If you use native Win32 Delphi, then the closest you have to garbage collection is the various reference-counted types, including strings, interfaces, variants, and dynamic arrays. Those types will get cleaned up automatically when your program determines that they are no longer being used, but it does that by keeping a reference count as those objects enter and leave the current scope. You also have the concept of ownership, which will destroy owned components when the owner is destroyed.

If you use Delphi for .Net, then you implicitly have the garbage collection of the underlying runtime.

blocks|key|1499890|text|Delphi-棱镜|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1499891|具有垃圾收集功能，因为它基于.NET|1499892|标准Delphi+(本机Win32+)|1499893|没有垃圾数据收集|1499894|entityMap^0|0|9|0|0|0|8|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Q|8|@]|D|@]|E|$]]|$1|H|3|I|5|6|7|R|8|@$9|S|A|T|B|C]]|D|@]|E|$]]|$1|J|3|K|5|6|7|U|8|@]|D|@]|E|$]]|$1|L|3|-4|5|6|7|V|8|@]|D|@]|E|$]]]|M|$]]

Delphi-Prism 

has Garbage Collection as it is based on .NET

Standard Delphi ( native Win32 )

Does not have Garbage Collection

blocks|key|1502376|text|Delphi+Win32/64没有垃圾收集器。但是，您可以利用Delphi本机引用计数机制，通过使用接口自动释放实例。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1502377|垃圾收集器和引用计数机制之间的不同之处在于，您必须处理循环引用，即如果A和B实例相互引用，则需要手动打破A或B被释放的循环。|1502378|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

Delphi Win32/64 does not have a garbage collector.
You can however take advantage of Delphi native references counting mechanism to have instances released automatically by using interfaces.

The differences between a garbage collector and a reference counting mechanism is that you will have to deal with circular references, i.e. if A and B instances reference each other, you need to manually break the cycle for A or B to be released.

blocks|key|3965089|text|是!看看这个类|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3965090|unit+uGC;

interface

uses
++System.Generics.Collections,+Rtti,+System.Classes;

type
++TGarbageCollector+=+class(TComponent)
++public
++++const
++++++DEFAULT_TAG+=+'DEFAULT_TAG';
++private
++++items:+TDictionary<TObject,+string>;
++public
++++destructor+Destroy;+override;
++++constructor+Create(AOwner:+TComponent);+override;
++++function+Add<T>(item:+T):+T;+overload;++
++++function+Add<T>(item:+T;+const+tag:+string):+T;+overload;++
++++procedure+Collect(const+tag:+string);
++end;

var
++GC:+TGarbageCollector;

implementation

uses
++System.Types,+System.SysUtils;


constructor+TGarbageCollector.Create(AOwner:+TComponent);
begin
++inherited;
++items+:=+TObjectDictionary<TObject,+string>.Create([doOwnsKeys]);
end;

destructor+TGarbageCollector.Destroy;
begin
++items.free();
++inherited+Destroy;
end;

function+TGarbageCollector.Add<T>(item:+T):+T;
begin
++result+:=+Add(item,+DEFAULT_TAG);
end;

function+TGarbageCollector.Add<T>(item:+T;+const+tag:+string):+T;
var
++obj:+TObject;
++v:+TValue;
begin
++v+:=+TValue.From<T>(item);
++if+v.IsObject+then
++begin
++++items.add(v.AsObject,+tag);
++++result+:=+item;
++end
++else
++++raise+Exception.Create('not+an+Object');
end;

procedure+TGarbageCollector.Collect(const+tag:+string);
var
++key:+TObject;
++item:+TPair<TObject,+string>;
++gcList:+TList<TObject>;
begin
++gcList+:=+TList<TObject>.Create();
++try
++++for+item+in+items+do
++++begin
++++++if+(item.Value+=+tag)+then
++++++++gcList.add(item.Key);
++++end;

++++for+key+in+gcList+do
++++++items.remove(key);
++finally
++++gcList.free();
++end;
end;

end.|code-block|syntax|javascript|3965091|像这样创建它|3965092|program+GarbageCollector;

uses
++Vcl.Forms,
++uMain+in+'uMain.pas'+{Main},
++uGC+in+'uGC.pas',
++uSomeClass+in+'uSomeClass.pas';

{$R+*.res}

begin
++Application.Initialize;
++Application.MainFormOnTaskbar+:=+True;
++GC+:=+TGarbageCollector.Create(Application);+//+<<<
++Application.CreateForm(TMain,+Main);
++Application.Run;
end.|3965093|像这样使用它|3965094|++someInstance+:=+GC.Add(TSomeClass.Create(nil),+'TSomeClassTag');
++//+do+smth+with+someInstance
++//now+destroy
++GC.Collect('TSomeClassTag');
++//
++anotherInstance+:=+GC.Add(TSomeClass.Create(nil),+'TSomeClassTag');
++//+do+smth+with+anotherInstance
++//+not+destroying+here+-+will+be+destroyed+on+app+destroy...|3965095|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|U|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

Yes! Look at this class

<pre><code>unit uGC;

interface

uses
 System.Generics.Collections, Rtti, System.Classes;

type
 TGarbageCollector = class(TComponent)
 public
 const
 DEFAULT_TAG = 'DEFAULT_TAG';
 private
 items: TDictionary&lt;TObject, string&gt;;
 public
 destructor Destroy; override;
 constructor Create(AOwner: TComponent); override;
 function Add&lt;T&gt;(item: T): T; overload; 
 function Add&lt;T&gt;(item: T; const tag: string): T; overload; 
 procedure Collect(const tag: string);
 end;

var
 GC: TGarbageCollector;

implementation

uses
 System.Types, System.SysUtils;


constructor TGarbageCollector.Create(AOwner: TComponent);
begin
 inherited;
 items := TObjectDictionary&lt;TObject, string&gt;.Create([doOwnsKeys]);
end;

destructor TGarbageCollector.Destroy;
begin
 items.free();
 inherited Destroy;
end;

function TGarbageCollector.Add&lt;T&gt;(item: T): T;
begin
 result := Add(item, DEFAULT_TAG);
end;

function TGarbageCollector.Add&lt;T&gt;(item: T; const tag: string): T;
var
 obj: TObject;
 v: TValue;
begin
 v := TValue.From&lt;T&gt;(item);
 if v.IsObject then
 begin
 items.add(v.AsObject, tag);
 result := item;
 end
 else
 raise Exception.Create('not an Object');
end;

procedure TGarbageCollector.Collect(const tag: string);
var
 key: TObject;
 item: TPair&lt;TObject, string&gt;;
 gcList: TList&lt;TObject&gt;;
begin
 gcList := TList&lt;TObject&gt;.Create();
 try
 for item in items do
 begin
 if (item.Value = tag) then
 gcList.add(item.Key);
 end;

 for key in gcList do
 items.remove(key);
 finally
 gcList.free();
 end;
end;

end.
</code></pre>

Create it like this

<pre><code>program GarbageCollector;

uses
 Vcl.Forms,
 uMain in 'uMain.pas' {Main},
 uGC in 'uGC.pas',
 uSomeClass in 'uSomeClass.pas';

{$R *.res}

begin
 Application.Initialize;
 Application.MainFormOnTaskbar := True;
 GC := TGarbageCollector.Create(Application); // &lt;&lt;&lt;
 Application.CreateForm(TMain, Main);
 Application.Run;
end.
</code></pre>

Use it like this

<pre><code> someInstance := GC.Add(TSomeClass.Create(nil), 'TSomeClassTag');
 // do smth with someInstance
 //now destroy
 GC.Collect('TSomeClassTag');
 //
 anotherInstance := GC.Add(TSomeClass.Create(nil), 'TSomeClassTag');
 // do smth with anotherInstance
 // not destroying here - will be destroyed on app destroy...
</code></pre>

Does Delphi have <a href="https://en.wikipedia.org/wiki/Garbage_collection_(computer_science)" rel="nofollow noreferrer">Garbage Collection</a>?

Garbage Collection in Delphi

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

问Delphi中的垃圾回收
EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi中的垃圾回收EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Delphi中的垃圾回收
EN