property от массива

[Zroman]

Есть массив FItems:array of integer;
хочу создать от него property Items, так чтобы можно было записывать Items[Index]:=x и читать x:=Items[Index].
Какого типа должен быть Items? Какова тогда должна быть сигнатура методов read и write?

[Septic]

Посмотри исходники TList, там это очень наглядно реализовано.

[LAngel]

Код: Выделить всё

type
  class TSome(...)
  private
    FItems: array of Integer;
    function GetItems(Index: Integer): Integer;
    procedure SetItems(Index: Integer; Value: Integer);
  public
    property Items[Index: Integer]: Integer read GetItems write SetItems;
  end;
implementation
function TSome.GetItems(Index: Integer);
begin
  Result := FItems[Index];
end;
procedure TSome.SetItems(Index: Integer; Value: Integer);
begin
  FItems[Index] := Value;
end;

[Zroman]

Спасибо

[Игорь Акопян]

LAngel, а увеличить массив в SetItems в случае необходимости?

[LAngel]

Игорь Акопян, ну тогда так

Код: Выделить всё

  if (index > VarArrayHighBound(FItems, 1)) or
     (index < VarArrayLowBound(FItems, 1)) then
     Raise(Exception.Create('Индекс выходит за границы массива'))
     else FItems[index] := Value;