Wie Property als Array ansprechen?

[Orbmu2k]

Ok Super Danke ... wissen heisst wissen wos steht

Delphi-Quellcode:

type
  TTASpareParts  = class
  private
    FList:TList;
    function GetCount:Integer;
  public
    constructor Create;
    destructor  Destroy;
    procedure   Clear;
    procedure   Add(Item: TTASparePart);
    function    GetItem(Index: Integer):TTASparePart;
    procedure   SetItem(Index: Integer; Value:TTASparePart);
    procedure   Delete(Index:Integer);
    property Items[Index: Integer]: TTASparePart read GetItem Write SetItem; default;
  published
    property Count:Integer read GetCount;

end;