Delphi 2009 泛型容器单元(Generics.Collections)[5]: TObject...<T> 系列-木庄网络博客

本文整理自网络，侵删。
 已经有了: TList<T>、TQueue<T>、TStack<T>、TDictionary<TKey,TValue>
为什么还有: TObjectList<T>、TObjectQueue<T>、TObjectStack<T>、TObjectDictionary<TKey,TValue> ?

还记得 Classes.TList 和 Contnrs.TObjectList 的主要区别吗?
如果元素是对象, Contnrs.TObjectList 在删除元素时会同时释放对象, 而 Classes.TList 不会.

同样在这里, Generics.Collections.TObjectList<T> 会同时释放对象, 而 Generics.Collections.TList<T> 不会.
其他也是一样.

还是要做个例子测试一下:
本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Generics.Collections;

var
  List    : TList<TButton>;       {譬如要管理 TButton 对象}
  ObjList : TObjectList<TButton>;

procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TList<TButton>.Create;
  ObjList := TObjectList<TButton>.Create;

  Button1.Caption := '创建 Button 并添加到 TList';
  Button2.Caption := '删除 TList 中的 Button';
  Button3.Caption := '创建 Button 并添加到 TObjectList';
  Button4.Caption := '删除 TObjectList 中的 Button';

  Button2.Enabled := False;
  Button4.Enabled := False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  List.Free;
  ObjList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  btn: TButton;
begin
  btn := TButton.Create(Self);
  btn.Caption := 'TList 中的 Button';
  btn.Parent := Panel1;
  btn.Width := 132;
  List.Add(btn);

  Button1.Enabled := False;
  Button2.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  List.RemoveAt(0);

  Button1.Enabled := True;
  Button2.Enabled := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  btn: TButton;
begin
  btn := TButton.Create(Self);
  btn.Caption := 'TObjectList 中的 Button';
  btn.Parent := Panel2;
  btn.Width := 132;
  ObjList.Add(btn);

  Button3.Enabled := False;
  Button4.Enabled := True;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ObjList.RemoveAt(0);

  Button3.Enabled := True;
  Button4.Enabled := False;
end;

end.
Delphi 2009 泛型容器单元(Generics.Collections)[5]: TObject...<T> 系列

相关推荐

评论
