denkfehler; array-> dynarray

[vsilverlord]

wie schreib ich da den type? mit den properties= so vllt?

Delphi-Quellcode:

type
  TViecher = class(TCollectionitem)
  protected
    function GetViech(Index: Integer): TViech;
    procedure SetViech(Index: Integer; Value: TViech);
  public
    function Add: TViech;
    function Insert(Index: Integer) : TViech;
    property Viech[Index: Integer]: TViech read GetViech write SetViech; default;
  end; 
...
type
  TViechergruppe = class(TCollection)
  protected
    function GetViecher(Index: Integer): TViecher;
    procedure SetViecher(Index: Integer; Value: TViecher);
  public
    function Add: TViecher;
    function Insert(Index: Integer) : TViecher;
    property Viecher[Index: Integer]: TViech read GetViecher write SetViecher; default;
  end;