189 8069 5689
本篇内容主要讲解“Delphi中如何利用StringList对象来记录动态生成的对象”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“Delphi中如何利用StringList对象来记录动态生成的对象”吧!
成都创新互联一直在为企业提供服务，多年的磨炼，使我们在创意设计，全网营销推广到技术研发拥有了开发经验。我们擅长倾听企业需求，挖掘用户对产品需求服务价值，为企业制作有用的创意设计体验。核心团队拥有超过10多年以上行业经验，涵盖创意，策化，开发等专业领域，公司涉及领域有基础互联网服务温江服务器租用、成都App定制开发、手机移动建站、网页设计、网络整合营销。
StringList使用
在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;
查询是否存在
如果在StringList里面查询某一项是否存在，我们可以用下面的例子进行：
var
S : TStrings;
begin
S := TStringList.Create;
S.Add('中国');
S.Add('人民');
S.Add('真伟大');
if S.IndexOf('中国') <> -1 then
begin
Showmessage('包含"中国"这个字符串');
end;
S.Free;
end;
排序查找
如果在StringList里面进行排序并查找，可以用下面的方法：
procedure TForm1.FormCreate(Sender: TObject);
var
MyList: TStringList;
Index: Integer;
begin
MyList := TStringList.Create;
try
MyList.Add('Animals');
MyList.Add('Flowers');
MyList.Add('Cars');
MyList.Sort; { Find will only work on sorted lists! }
if MyList.Find('Flowers', Index) then
begin
ListBox1.Items.AddStrings(MyList);
Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
end;
finally
MyList.Free;
end;
end;
到此，相信大家对“Delphi中如何利用StringList对象来记录动态生成的对象”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！