Из "закромов"

1.

function A: TList;

begin

 Result := nil;

end;

function B: Integer;

begin

 Result := A.Count;

end;

var

 X : Integer;

begin

 X := B;

end;

Вопрос - чему равно X?

2. В чем ошибочен код:

Function A: TList;

Begin

 Reslt := TList.Create;

End;

Function GetPersons(aList: TList);

Begin

 aList.Add(TPerson.Create(‘Иванов’));

 aList.Add(TPerson.Create(‘Петров’));

End;

Var

 l_List : TList;

Begin

 l_List := A;

 GetPersons(L);

End.

3. Дан интерфейс X, как реализовать его на классе - потомке от Y?

В качестве Y использовать - TObject, TComponent и TinterfacedObject.

Условие: Нужно, чтобы число ссылок управляло временем жизни реализующего объекта.

4. Что вы знаете про шаблоны publisher/subscriber и strategy?

На какой механизм Delphi они похожи?.

5. Что такое implements?

Дайте пример поведения счетчика ссылок с implements и без него.