Задачник по ООП Опции

[Bokul]

Если ли такой для Паскаля? Или просто задачи...

P.S. ссылку на форум Задачи не давать...

[volvo]

TItem и TList должны знать о параметрах конструктора TBall

А должны ли?

Я в своей программке (той, с елкой) делал вот так (переношу на твои названия типов):

Type
  TType = ^TItem;

  TItem = object ... end;

  TList = object
    procedure AddItem(X: TType);
  end;

  TGObject = Object(TType)
    ...
  end;
  PTBall = ^TBall;
  TBall = Object(TGObject)
    ...
  end;

Что это меняет?
А вот что:

Var L: Tlist;
...
  L.AddItem(new(PTBall, init( ... )));
  { Но сами классы TItem/TList не имеют никакого понятия о параметрах конструктора TBall }

Главный цикл должен быть методом TSupervisor?

Скорее всего, да...