delphi Tlist的使用

来源：百度知道 编辑：UC知道 时间：2024/06/10 16:29:40
我搜索数据库用动态创建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;