本篇内容主要讲解“Delphi中如何利用StringList对象来记录动态生成的对象”,感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷,实用性强。下面就让小编来带大家学习“Delphi中如何利用StringList对象来记录动态生成的对象”吧!
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对象来记录动态生成的对象”有了更深的了解,不妨来实际操作一番吧!这里是亿速云网站,更多相关内容可以进入相关频道进行查询,关注我们,继续学习!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。