Delphi中的ObjectList简单用法一则

最近项目中需要搞很多个同一类对象的管理和操作，我居然还想用数组array来实现。在当当的教育下，开始研究TObjectList。Delphi中将一系列对象进行数组形式的维护，TObjectList是一个不错的实现方法。他帮助我们添加、计数、删除、释放一个List列表中的内容。

　　基本实现不难，自己做一个类，把对象数组像List一样封装到Items中去，然后根据需要实现一些需要的Add/ Count/ Remove/ Clear等操作。实现很简单，直接调用ObjectList的固有函数即可。一个实现的伪代码的例子如下。（修改自最近的Project文件，维护一个TMyClass类的实例列表）Blogbus没有语法高亮功能，很是让人郁闷。

TReminder = class(TPersistent)

private

FFileName: string;

FItems: TObjectList;

function ReadItems(Index: Integer): TMyClass;

procedure SetItems(Index: Integer; const Value: TMyClass);

public

property Items[Index: Integer]: TMyClass read ReadItems write SetItems;

function Add(MyClass: TMyClass): Integer;

function Count(): Integer;

constructor Create;

end;

implementation

function TReminder.Add(MyClass: TMyClass): Integer;

begin

Result := FItems.Add(MyClass);

end;

function TReminder.Count: Integer;

begin

Result := FItems.Count;

end;

constructor TReminder.Create;

begin

inherited;

FItems := TObjectList.Create;

end;

function TReminder.ReadItems(Index: Integer): TMyClass;

begin

Result := TMyClass(FItems[Index]);

end;

procedure TReminder.SetItems(Index: Integer; const Value: TMyClass);

begin

FItems[Index] := Value;

end;