delphi 容器类 3. TCollection
TCollection 是TCollectionItenm对象一个容器。
类关系TObject→TPersistent
每一个TCollection都拥有一组TCollectionItem对象。
在其Items属性数组中，TCcllection保存集合项目一个下标。Count 属性包含了集合项目数量。
使用Add和Clear方法可以向集合中加入项目和从集合中删除项目。
从TCollection继承对象能够包含从TCollectionItem继承对象。
例如，一个TDBGridColumns对象包含TColumn对象，这两个类被TDBGrid对象用于表示网格。
下表列出了每一个TCollection对象子类与相应TCollectionltem对象子类以及使用控制组件。
其中，TQuryTableProducer和TWehDispetcher使用控件继承自TWinContril对象。
TCollection子类 TCollectionItem子类 控件组件
TCheckConstraints TCheckConstraint 使用Tfield对象控件
TCookieCollection TCookie HTTP响应对象
TCoolBands TCoolBand TCoolBar
TDBGridColumns TColumn TDBGrid
TDependencies TDependency TService
TDisplayDims TDisplayDim TDecisionGrid
TFieldDefs TfieldDef TDatsSet 字串6
THeaderSections THeaderSection THeaderControl 字串4
TIndexDefs TIndexDef TTable
THTMLTableColumns THTMLTableColumn TQueryTableProducer
TListColumns TListColumn TListView
TSuatusPanels TSuatuspanel TStatusBar
TWebActionItems TwebActionitem TwebDispatcher
使用TCollection和TCollectionitem子类控件，都有一个拥有一个集合5公开属性（
例如，TStatusBarPanels属性拥有一个TStatusPanels)。一个标准属性编辑器，从种属上说被认为是集合编辑器，
它被授引自Object Inspector，以编辑集合中项目。
属性列表
Count 返回集合中项目数量
ItemClass 表示集合项目有种类
Items 提供对集合中项目变址访问
方法列表
~TCollection 删除集合及其内每一项目
Add 创建一新对象实例并加 入到Items属性数组中
Assign 将另一集合有内容复制到执行该方法对象中
Bcginupdate 使屏幕更新暂停
Clear 从集合中删除所有项目
EndUpdate 使屏幕能够重新进行更新
FindItemID 返回ID参数指定项目
Insert 创建TCollectionItem对象并加入到Items属性数组中
TCollection 创建并初始化一个集合 字串9
属性
TCollection::Count
用于返回集合中项目数量。
__property int Count = {read=getCount,nodefanlt};
Count属性包含了Items属性数组中项目数量。因为Items属性数组下标从0开始，因此，Count属性数值总是比Items属性数组最后一个成员下标大1。 字串9
TCollection::ItemClass
表示集合项目类。
__property int count = {read =GetXount,nodefauit};
ItemClass返回属于集合项目类（继承自TColliectionItem对象）。
例如，在TCollection对象THeaderSections子类有一个实例中，IetmClass属性返回THeaderSection .
TCollection::Items
提供对集合中项目变址访问。
__property TCollectionItem*irems{int Index}={read =GetItem,write=SetItem};
使用Items属性可以访问集合中单个项目。Index参数数值对应于TCollectionItem对象Index属性。它表示项目 在集合中有位置。 字串2
方法
TCollection::~TCollection
删除集合及其内每一个项目 。
__fastcall virtual~TCollection(void);
不要直接调用~TCollection 用delete会自动调用~TCollection
~TCollection调用Clear方法,释放在Items属性数组中每一个被子引用项目，然后删除集合本身。
TCollection::Add
创建一个新TCollectionItem对象实例，并将其加入到Items属性数组中。
TCollectionItem* __fasteall Add(void);
调用Add可以在集合中创建一个项目。新项目被放置在Items属性数组结尾处。Add返回新集合项目。
TCollection::Assign
将另一个集合内容复制到执行该方法对象。
virtual void __fastcall Assign (TPersistemt*Source);
使用Assign,可以将一个TCollection对象实例内容复制至另一个TCollection对象。Assign方法删除目集合（即执行该方法对象）中所有项目，然后加入由Source参数指定集合Items属性数组中每一个项目复制。
TCollection::BeginUpdate
使屏幕更新暂停。
void __fastcall BeginUpdate(void);
BeginUpdate使屏幕更新暂停，直至调用了EndUpdate方法。使用BeginUpdate可以加速进行处理，并且当向一个集合中加入项目或从一个集合中删除项目时，可以避免闪烁。 字串3
TCollection::EndUpdate
从集合中删除所有项目。
void __fastcall CIear(void);
CIear清空Items属性数组并删除每一个TCollectionItem对象。
TCollection::EndUpdate
使屏幕能够重新进行更新。
void __fastcall EndUpdate(void);
使用EndUpdate,可以使以BeginUpdate方法关闭屏幕能够重新进行更新。
TCollection::FindItemID
返回ID参数指定项目。 字串1
TCollectionItem* __fastcall FindItemID(int ID)；
FindItemID方法返回集合中项目，该项目ID属性被作为一个参数传递。如果没有ID参数指定项目，则FindItemID返回NULL.
字串8
TCollection::Insert 字串6
创建一个新TCollectionItem对象实例，并将其加入到Items属性数组中。 字串6
TCollectionItem* __fastcall Insert(int Index);
字串7
调用 Insert，可以在集合中一个指定位置处加入一个新项目。在Items属性数组中已经存在从指定位置开始项目将向上移动。Insert返回新集合项目。 字串4
TColletion::TCollection 字串6
创建并初始化一个集合。 字串3
__fastcall TCollection (Sysem::TMetaCIass*ItemCIass);
字串5
不要直接调用 TCollection。用new会返回新集合一个间接引用。
字串6
TCollection方法取一个TCollectionItem子类名作为一个参数。该参数确定了由Add方法创建项目类。 字串2
====================================================================================
TCollection类
前面我们提到了Delphi的IDE能够自动将字符串列表保存在DFM文件中，并能在运行时将设计期编辑的字符串列表加载进内存（也就是我们通常所说的类的可持续性）。TStrings这种特性比较适合于保存一个对象同多个字符串数据之间关联，比较类似于现实生活中一个人同多个Email账户地址之间的关系。但是，TStrings类型的属性有一个很大的局限那就是，它只能用于设计时保存简单的字符串列表，而不能保存复杂对象列表。而一个父对象同多个子对象之间的聚合关系可能更为常见，比如一列火车可能有好多节车厢构成，每节车厢都有车厢号，车厢类型（卧铺，还是硬座），车厢座位数，车厢服务员名称等属性构成。如果我们想在设计期实现对火车的车厢定制的功能，并能保存车厢的各个属性到窗体文件中，则车厢集合属性定义为TStrings类型的属性是行不通的。
对于这个问题，Delphi提供了TCollection容器类属性这样一个解决方案。TCollection以及它的容器元素TCollectionItem的接口定义如下：
TCollection = class(TPersistent)
…
protected
procedure Added(var Item: TCollectionItem); virtual; deprecated;
procedure Deleting(Item: TCollectionItem); virtual; deprecated;
property NextID: Integer read FNextID;
procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); virtual;
{ Design-time editor support }
function GetAttrCount: Integer; dynamic;
function GetAttr(Index: Integer): string; dynamic;
function GetItemAttr(Index, ItemIndex: Integer): string; dynamic;
procedure Changed;
function GetItem(Index: Integer): TCollectionItem;
procedure SetItem(Index: Integer; Value: TCollectionItem);
procedure SetItemName(Item: TCollectionItem); virtual;
procedure Update(Item: TCollectionItem); virtual;
property PropName: string read GetPropNam
补充：软件开发 , Delphi ,
