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;

Delphi的default关键字还有很多用途，留在以后的文章中讨论......