blocks|key|333905|text|您需要遍历并释放每个创建的对象。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|333906|您必须知道，声明一个TMySubInfo数组实际上并不会创建对象。您必须在以后创建它们。|333907|对于更动态的方法，我会使用TList。您甚至可以使用一个TObjectList，它可以在列表被释放时释放它的所有项。|333908|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|$]]

You need to loop through and free each created object.

You must know, that declaring a array of TMySubInfo doesn't actually create the objects. You have to create them later on.

I would use a TList instead for a more dynamic approach. You could even use a TObjectList that can free all its items when the list gets freed.

blocks|key|334001|text|您应该释放每一项，如下所示|type|unstyled|depth|inlineStyleRanges|entityRanges|data|334002|destructor+TMyInfo.Destroy;
var
++I:+Integer;
begin
++for+I:=+Low(SubInfo)+to+High(SubInfo)+do
+++SubInfo[I].Free;
++SetLength(SubInfo,+0);+
++inherited;
end;|code-block|syntax|javascript|334003|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You should free each item, like this

<pre><code>destructor TMyInfo.Destroy;
var
 I: Integer;
begin
 for I:= Low(SubInfo) to High(SubInfo) do
 SubInfo[I].Free;
 SetLength(SubInfo, 0); 
 inherited;
end;
</code></pre>

blocks|key|334041|text|释放对象的方式与分配对象的方式相同。如果通过调用类的构造函数来分配元素的值，则释放该元素引用的对象。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|334042|destructor+TMyInfo.Destroy;
var
++info:+TMySubInfo;
begin
++for+info+in+SubInfo+do
++++info.Free;
++inherited;
end;|code-block|syntax|javascript|334043|它使用了Delphi2005中引入的语法。如果您有较旧的版本，请使用显式循环控制变量：|334044|var
++i:+Integer;
begin
++for+i+:=+0+to+High(SubInfo)+do
++++SubInfo[i].Free;|334045|你不需要在最后调用SetLength。当对象被销毁时，像SubInfo这样的动态数组字段会自动释放。它与接口、字符串和变量字段的工作方式相同。|offset|length|style|CODE|334046|entityMap^0|0|0|0|0|9|9|S|7|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@$M|X|N|Y|O|P]|$M|Z|N|10|O|P]]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|R|$]]

You free the objects the same way you allocated them. If you assigned an element's value by calling the constructor of a class, then free the object referenced by that element.

<pre><code>destructor TMyInfo.Destroy;
var
 info: TMySubInfo;
begin
 for info in SubInfo do
 info.Free;
 inherited;
end;
</code></pre>

That uses syntax introduced in Delphi 2005. If you have an older version, use an explicit loop-control variable:

<pre><code>var
 i: Integer;
begin
 for i := 0 to High(SubInfo) do
 SubInfo[i].Free;
</code></pre>

You don't need to call <code>SetLength</code> at the end. A dynamic-array field like <code>SubInfo</code> gets released automatically when the object is destroyed. It works the same as interface, string, and Variant fields.

blocks|key|1030408|text|我同意上面所有的建议，但我想添加一个建议(诚然有点小)，即您总是优先调用FreeAndNil()过程，而不是Free方法。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1030409|迟早你会意外地访问一个你已经释放的对象。如果你有把所有东西都FreeAndNil的习惯，那么你就会在包含问题的线路上立即得到一个a/v。如果你只是释放了对象，你很可能会在一段时间后得到一个神秘的和明显无关的失败……|1030410|在析构函数的上下文中，这可能看起来令人着迷，就像这里。好吧，这是有点，但要么到处都做，要么根本不做。|1030411|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|$]]

Agreed with all the above suggestions, but I want to add an (admittedly somewhat anal) recommendation that you always call the FreeAndNil() procedure in preference to the Free method. 

Sooner or later you will accidentally access an object that you have already freed. If you have the habit of FreeAndNil-ing everything, then you get an immediate a/v on the line that contains the problem. If you merely Free'd the object, you will likely get a mysterious and apparently unconnected failure some time later...

This might seem obsessive in the context of a destructor, as here. Ok, it is a bit, but either one does it everywhere or not at all.

blocks|key|1030440|text|它也是肛门，但喜欢以与创建相反的顺序释放，例如：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1030441|For+I+:=+List.Count-1+downto+0+do
++List[I].Free;|code-block|syntax|javascript|1030442|我把创建和销毁看作是parethesis+()，尽管它使得实际执行的差异很小。一带一路|1030443|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

It is also anal, but Like to free in the reverse order to the creation, for example:

<pre><code>For I := List.Count-1 downto 0 do
 List[I].Free;
</code></pre>

I view creation and destruction as parethesis () although it makes litte actual execution diference.
Bri

blocks|key|333950|text|如果对象是通过构造函数调用创建的，则需要调用Free来释放它们。如果不是，你就不需要。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|333951|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

If you created the objects via constructor calls, you need to make calls to Free to free them. If not, you don't.

blocks|key|3551831|text|每一个新的东西都应该有一个免费的。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3551832|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

For every new there should be a free.

blocks|key|334109|text|你可以不使用Finalize吗？|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|334110|entityMap|0|LINK|mutability|MUTABLE|url|http://www.drbob42.com/delphi4/dynarray.htm^0|6|8|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

Can you not use <a href="http://www.drbob42.com/delphi4/dynarray.htm" rel="nofollow noreferrer">Finalize</a>?

Suppose my Delphi classes look like this:

<pre><code>interface
type

 TMySubInfo = class
 public
 Name : string;
 Date : TDateTime;
 Age : Integer;
 end;

 TMyInfo = class
 public
 Name : string;
 SubInfo : array of TMySubInfo;
 destructor Destroy; override;
 end;

implementation

 destructor TMyInfo.Destroy;
 begin
 // hmmm..
 end;

end.
</code></pre>

To properly clean up, what should go in the destructor? Is it enough to do <code>SetLength(SubInfo,0)</code>, or do I need to loop through and free each <code>TMySubInfo</code>? Do I need to do anything at all?

How should I free an array of objects in a Delphi 7 destructor?

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

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

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

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

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

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

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

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

EdgeOne AI 安全实战专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

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

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

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

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

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

社区新版编辑器体验调研

假设我的Delphi类如下所示：interfacetype    TMySubInfo = class    public        Name : string;        Date : TDateTime;        Age  : Integer;    end;    TMyInfo = class    public        Name : string;        Su

问我应该如何释放Delphi 7析构函数中的对象数组？
EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我应该如何释放Delphi 7析构函数中的对象数组？EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问我应该如何释放Delphi 7析构函数中的对象数组？
EN