Delphi 对象列表使用

最近学习了ObjectList对象的使用方法，记录如下：
首先在单元头引入Contnrs单元
然后下面以一个简单的列子说明一下，示例：是创建多个TstringList对象，将每个对像放入对象列表中，对每个对象赋值，最后将每个对象值显示在memo中。

unit Unit5;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs,Contnrs, StdCtrls;

 

type

  TForm5 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject);

var

  ObjList: TobjectList;

  slst:Tstrings;

  i:integer;

begin

  objlist:=TObjectList.Create;

  slst := TstringList.Create;

  try

    slst.CommaText:='x1,x2,x3,x4,x5';

    for I := 0 to slst.Count - 1 do

    begin

      objlist.Add(TstringList.Create);

      TstringList(Objlist[i]).CommaText:=inttostr(i)+'ss1,ss2,ss3';

    end;

    memo1.Clear;

    for i := 0 to objlist.Count - 1 do

    begin

      memo1.Lines.Add(Tstringlist(objlist[i]).CommaText);

    end;

 

  finally

    objlist.Free;

    slst.Free;

  end;

 

end;

 

end.