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;

 

转载于:https://www.cnblogs.com/pengshao/archive/2012/02/01/2335170.html