Delphi对象的default数组属性

uses Contnrs;  // 这个单元包含Delphi新增的容器对象，比如TObjectList

// TList的缺省数组属性 property Items[Index: Integer]: Pointer read Get write Put; default;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TList;
begin
List := TObjectList.Create;  //我很懒，释放的工作由TObjectList代劳
try
List.Add(TObject.Create);
List.Add(TObject.Create);
ShowMessage(TObject(List[0]).ClassName);  // 以数组下标方式访问，等同于List.Items[0]
finally
List.Free;
end;
end;