Дружественный класс

← →
kronprince © (2002-08-07 17:27) [0]

Есть ли в ПЯТОЙ Delphi аналог Сишных дружественных классов или функций ??? - если есть то нужен синтаксис :) - спасибо

← →
Внук © (2002-08-07 17:35) [1]

Как говорилось здесь раньше, в Object Pascal все классы дружественны друг другу в пределах одного модуля. Другого не дано :(

Все классы в одном модуле являются друзьями.

Если надо получить доступ к protected членам класса из другого модуля, можно сделать так

type
TControlCracker = class(TControl);

...

begin
TControlCracker(AnyTControlDescendant).AnyProtectedMember
end

Доступ к private членам класса из другого модуля получить не возможно.

Дружественный класс Найти похожие ветки