索引说明2
type TRectangle=class private FCoordinates:array[0..3] of longint; function GetCoordinate(Index:integer):Longint; //读方法 procedure SetCoordinate(Index:integer; Value:Longint);//写方法 public property Left:Lingint; index 0 read GetCoordinate write SetCoordinate; property Top:Lingint; index 1 read GetCoordinate write SetCoordinate; property Right:Lingint; index 2 read GetCoordinate write SetCoordinate; property Bottom:Lingint; index 3 read GetCoordinate write SetCoordinate; end;