温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2021-07-16 15:59:21 来源:亿速云 阅读:306 作者:chen 栏目:大数据

本篇内容主要讲解“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对象来记录动态生成的对象”有了更深的了解,不妨来实际操作一番吧!这里是亿速云网站,更多相关内容可以进入相关频道进行查询,关注我们,继续学习!

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI