delphi Tlist的使用

我搜索数据库用动态创建Panel，我想把每个Panel放到Tlist的里面，如何做到？求具体代码。

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;

老版本中的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.具体应用百度一下.