语法:Property 属性名[索引值]:属性类型 read 方法名 write 方法名
TArrayProperty = class
private
FValues:array[0..1000] of string;
procedure SetValue(const index:Integer;const Value:string);
function GetValue(const index:Integer):string;
public
property Values[x:integer]:string read GetValue write SetValue;
end;
{ TArrayProperty }
function TArrayProperty.GetValue(const index: Integer): string;
begin
Result := FValues[index];
end;
procedure TArrayProperty.SetValue(const index: Integer; const Value: string);
begin
FValues[Index] := Value;
end;