导航：首页 > 互联网科技 >

Delphi中如何利用StringList对象来记录动态生成的对象

发表于：2024-09-25 作者：千家信息网编辑

千家信息网最后更新 2024年09月25日，本篇内容主要讲解"Delphi中如何利用StringList对象来记录动态生成的对象"，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习"Delphi中如何利用S

千家信息网最后更新 2024年09月25日Delphi中如何利用StringList对象来记录动态生成的对象

本篇内容主要讲解"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;