索引说明来使多个属性共用一个访问方法来设置属性的值.属性声明中读、写属性的说明必须是方法,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;