delphi Tlist的使用
答案:2 悬赏:10 手机版
解决时间 2021-02-13 22:27
- 提问者网友：杀手的诗
- 2021-02-13 13:50
我搜索数据库用动态创建Panel，我想把每个Panel放到Tlist的里面，如何做到？求具体代码。
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-02-13 15:26
var
aItem:TPanel;
aLst:TList;
I: Integer;
begin
aLst:=TList.Create;
try
for I := 0 to 100 - 1 do
begin
aItem:=TPanel.Create(nil);
//
//do other things
//
aLst.Add(aItem);
end;
finally
for I := 0 to aLst.Count - 1 do
TObject(aLst[i]).Free;
aLst.Clear;
aLst.Free;
end;
end;
aItem:TPanel;
aLst:TList;
I: Integer;
begin
aLst:=TList.Create;
try
for I := 0 to 100 - 1 do
begin
aItem:=TPanel.Create(nil);
//
//do other things
//
aLst.Add(aItem);
end;
finally
for I := 0 to aLst.Count - 1 do
TObject(aLst[i]).Free;
aLst.Clear;
aLst.Free;
end;
end;
全部回答
- 1楼网友：街头电车
- 2021-02-13 15:51
老版本中的tlist指针调用,我就不写了,建议楼主看看2007以后引入的泛型tlist的用法.
uses generics.collections;
var ss:tlist;
begin
ss:=tlist.create;
with ss do
begin
add(1);
add(2);
end;
showmessage(inttostr(ss[0]));
ss.free;
end;
注意: tlist中的t可以是任意类型的变量/类实例/记录,需要释放资源的要手工释放,方法就是ss[i].free.
如果想一个free释放所有元素,使用tobjectlist就可以.
另外,要达到哈希表的效果,可以使用tdictionary.具体应用百度一下.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯