Delphi中如何利用StringList對象來記錄動態(tài)生成的對象

本篇內(nèi)容主要講解“Delphi中如何利用StringList對象來記錄動態(tài)生成的對象”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學習“Delphi中如何利用StringList對象來記錄動態(tài)生成的對象”吧!

StringList使用

在Delphi中，如果程序需要動態(tài)創(chuàng)建大量的對象，那么我們可以利用StringList對象來管理這些動態(tài)生成的對象。具體步驟如下：

1、創(chuàng)建StringList對象：
OBJ := TStringList.Create;

2、保存動態(tài)生成的對象：
OBJ.AddObject('標識','對象名');

3、調(diào)用生成的對象：
(OBJ.Objects[序號/OBJ.IndexOf('標識')] as 對象類型).方法或?qū)傩?br/>或：
對象類型(OBJ.Objects[序號/OBJ.IndexOf('標識')]).方法或?qū)傩?/p>

4、釋放動態(tài)生成的對象：
(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('真?zhèn)ゴ?#39;);
  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對象來記錄動態(tài)生成的對象”有了更深的了解，不妨來實際操作一番吧！這里是億速云網(wǎng)站，更多相關(guān)內(nèi)容可以進入相關(guān)頻道進行查詢，關(guān)注我們，繼續(xù)學習！