利用StringList对象来管理这些动态生成的对象

如果程序需要动态创建大量的对象，那么我们可以利用StringList对象来管理这些动态生成的对象。
1、创建StringList对象：
OBJ := TStringList.Create;

2、保存动态生成的对象：
OBJ.AddObject('标识','对象名');

3、调用生成的对象：
(OBJ.Objects[序号/OBJ.IndexOf('标识')] as 对象类型).方法或属性
或：
对象类型(OBJ.Objects[序号/OBJ.IndexOf('标识')]).方法或属性

4、释放动态生成的对象：
(OBJ.Objects[序号/OBJ.IndexOf('标识')] as 对象类型).Free;
对象类型(OBJ.Objects[序号/OBJ.IndexOf('标识')]).Free;

释放对象后记得要删除StringList里对应的记录：
OBJ.Delete(序号/OBJ.IndexOf('标识'));

5、StringList的释放：
if Assigned(OBJ) then OBJ.Free;

---------------------------------------------------

正常来说是要先释放(TObject(ts.Items[i]).Free)再删除,最后才是ts.free

 for i:=0 to StringList.Count-1 do  
    begin  
      StringList.Objects[i].Free;  
    end;  
    if StringList<>nil then  
    FreeAndNil(StringList); 

==========================