TList  TObjectList的区别和使用。

,所在的单元。

TList一直就是在Classes里

TObjectList一直就是在Contnrs里

， TObjectList对象的创建方法有一个参数：

constructor TObjectList.Create(AOwnsObjects: Boolean);

从字面就可理解其意义：拥有对象集与否。帮助文档：

If the OwnsObjects property is set to true (the default), TObjectList controls the memory of its objects, freeing an object when its index is reassigned; when it is removed from the list with the Delete, Remove, or Clear method; or when the TObjectList instance is itself destroyed.

这段话的意思就是TObjectList 的几个删除方法和释放方法都受参数AOwnsObjects的影响。

用的默认参数值，释放时ObjectList里的对象一块释放掉.

TList,TObjectList 使用——资源释放

TOjectList = Class (Tlist);

TOjectList继承Tlist,从名字上看就可以知道它是专门为对象列表制作的，那么他到底丰富了那些功能呢？

首先是 TObject 作为对象可以方便使用，无需指针强制。

丰富了 Notify 针对当前状态处理，比如如果是删除就将该点的引用一并清理掉;

     procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);

      begin

        if (Action = lnDeleted) and OwnsObjects then

          TObject(Ptr).Free;

       inherited Notify(Ptr, Action);

      end;

 看notify方法会发现：如果TOjectList.OwnsObjects=True时（默认的创建），释放的时候会连里面的对象一块释放掉。

 TOjectList.OwnsObjects=False时，释放的时候不会释放里面的对象。

在 Tlist 中，有 Clear(),将呼叫 SetCount，SetCapacity；即删除所有。

     procedure TList.Clear();

     begin

        SetCount();

        SetCapacity();

     end;

当该对象销毁是，也会自动调用Clear() 清除所有。

      destructor TList.Destroy;

      begin

         Clear();

      end;

如果从 Tlist 继承也必须实现 Notify() ,方便资源释放，减少麻烦。

List和OjectList释放的区别如下例子：

procedure TForm1.Button1Click(Sender: TObject);

var

  list: TObjectList;

  i: Integer;

  btn: TButton;

begin

  list := TObjectList.Create;

  for i :=  to  do

  begin

    btn := TButton.Create(Self);

    with btn do begin

      Caption := Format('Btn %d', [i+]);

      Parent := Self;

    end;

    list.Add(btn);

  end;

  ShowMessage('TObjectList 释放时, 会同时释放其中的对象');

  list.Free;

end;  

procedure TForm1.Button2Click(Sender: TObject);

var

  list: TList;

  i: Integer;

  btn: TButton;

begin

  list := TList.Create;

  for i :=  to  do

  begin

    btn := TButton.Create(Self);

    with btn do begin

      Caption := Format('Btn %d', [i+]);

      Parent := Self;

    end;

    list.Add(btn);

  end;

  ShowMessage('TList 释放后, 其中的对象并未释放');

  list.Free;

end;

如果用TObjectList来存储，当调用sort方法时要注意先将owerobject设置为False

总结：如果有一个对象需要用到列表，最好从 TOjectList 开始继承，对资源释放有完善的处理机制。