1property Objects[Index: Integer]: TObject read GetObject write SetObject;
2property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
3property Values[const Name: string]: string read GetValue write SetValue;
规则:
1.数组属性是被索引的属性. 不像数组只使用有序类型的索引,数组属性的索引能使用任何类型。
Objects[Index: Integer] ;Pixels[X, Y: Integer];Values[const Name: string];
Objects,Objects,Objects 是属性标识符,而后面则是属性属性的索引.
2.数组属性的访问限定符(read,write)后跟的必须是方法,不能是字段.
读(read)方法后必须是一个函数,函数的参数数目,参数类型以及顺序必须和数组标志付的索引中列出的一致.返回值也必须与属性返回值相同.
function GetObject(Index: Integer): TObject;
写(write)方法必须是一个过程.过程与函数相似.只不过没有返回值.另外需在参数列表加一个和属性具有相同类型的值参(传值)或常量参数{用来储存数组的值}
procedure SetObject(Index: Integer; Value: TObject);
3.需要一个数组来存储数组的值.
过程,函数,数组,这些变量.平常都放在私有区域!