我发觉如果定义成propety的形式后,要访问数组某一个某个元素时是件很麻烦的事了。于是想请教一下各位高手的习惯是怎么样的?

解决方案 »

  1.   

    //....
    type
      TForm1 = class(TForm)
      private
        FArrayInteger: array[0..255] of Integer;
        function GetArrayInteger(I: Integer): Integer;
        procedure SetArrayInteger(I: Integer; const Value: Integer);
      public
        property ArrayInteger[I: Integer]: Integer read GetArrayInteger write SetArrayInteger;
      end;//....
    implementation
    //....function TForm1.GetArrayInteger(I: Integer): Integer;
    begin
      Result := -1;
      if (I < 0) or (I > 255) then Exit;
      Result := FArrayInteger[I];
    end;procedure TForm1.SetArrayInteger(I: Integer; const Value: Integer);
    begin
      if (I < 0) or (I > 255) then Exit;
      FArrayInteger[I] := Value;
    end;
    //....