在Delphi中,如果程序需要动态创建大量的对象,那么我们可以利用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;