Delphi数组索引

 语法: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;