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;

到此，相信大家對“Delphi中如何利用StringList對象來記錄動態生成的對象”有了更深的了解，不妨來實際操作一番吧！這里是億速云網站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續學習！