Delphi属性索引

    索引说明来使多个属性共用一个访问方法来设置属性的值.属性声明中读、写属性的说明必须是方法,read后面的方法必须附加一个整型的参数,write后的过程方法必须在参数表的倒数第2个参数位置附加一个整形的参数

 

type
   TProperty = class
    private 
      FPosition: array[0..2] of Integer;
      function GetPosition(const Index:Integer):Integer;
      procedure SetPosition(const Index,Value:Integer);
    public 
      property Left:Integer index(0) read GetPosition write SetPosition;
      property Top:Integer index(1) read GetPostion write SetPosition;
   end;

 {TProperty}

function TProperty.GetPosition(const Index:integer):Integer;
begin
   result := FPosition[Index];
end;

procedure TProperty.setPositon(const Index,Value:Integer);
begin
  FPosition[Index]  := Value; 
end;