VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 889|回复: 2

請教關於內存釋放的問題。(動態建立的控件保存在Tlist中)

[复制链接]

1

主题

1

帖子

2.00

积分

新手上路

Rank: 1

积分
2.00
发表于 2020-12-14 19:00:01 | 显示全部楼层 |阅读模式
我在策程序運行的時候動態的添加一些控件(TButton,TEdit,TLabel....)
並且都將他們保存在Tlist中。請教我該怎麼釋放這些控件。

我想通過RTTI的方法,根據 list[i]指向的對象獲得該對象的ClassName.
根據ClassName 獲取該對象的 Destroy 過程,然後調用該過程。
這樣做有問題麼?請高手指點。
回复

使用道具 举报

0

主题

5

帖子

4.00

积分

新手上路

Rank: 1

积分
4.00
发表于 2020-12-14 20:00:01 | 显示全部楼层
for i:=0 to List1.Count-1 do
begin
FreeAndNil(List1.Items[i]);
List1.Delete(i);
end;
回复

使用道具 举报

0

主题

40

帖子

27.00

积分

新手上路

Rank: 1

积分
27.00
发表于 2020-12-14 21:00:01 | 显示全部楼层
var
  T:Tlist;
  I:Integer;
begin

.....

for I:=T.Count-1 downto 0 do
begin
  TObject(T.Items[i]).Free;
  T.Delete(I);
end;
end;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表