ObjectList in ObjectList

[DanielJ]

Delphi-Quellcode:

Type
  TFahrer = class(TObject)
    nachname: string;
    vorname: string;
    alter: integer;
  end;

  TFahrerList = (TObjectList)
  protected
    function getItem(index: Integer): TFahrer ; virtual;
    procedure setItem(index: Integer; Auto: TFahrer); virtual;
  public
    procedure items[index: Integer]: TFahrer read getItem write setItem; 
  end;

  TAuto = class(TObject)
    Kennzeichen: string;
    Modell: string;
    Fahrer: TFahrerList; // muss natürlich im Create/Destroy berücksichtigt werden
  end;


TAutoList = class(TObjectList)
  protected
    function getItem(index: Integer): TAuto; virtual;
    procedure setItem(index: Integer; Auto: TAuto); virtual;
  public
    procedure items[index: Integer]: TAuto read getItem write setItem; default;
    .
    .
  end;

PS: Virtual? oder doch lieber Override?