В Delphi 10 Seattle я мог использовать следующий код, чтобы обойти слишком строгие ограничения видимости.
Как получить доступ к закрытым переменным?
type
TBase = class(TObject)
private
FMemberVar: integer;
end;
И как мне получить доступ к простым или виртуальным частным методам?
type
TBase2 = class(TObject)
private
procedure UsefullButHidden;
procedure VirtualHidden; virtual;
procedure PreviouslyProtected; override;
end;
Раньше я использовал помощник класса, чтобы разбить базовый класс.
type
TBaseHelper = class helper for TBase
function GetMemberVar: integer;
В Delphi 10.1 Berlin, помощники класса больше не имеют доступа к частным членам предмета или записи.
Есть ли альтернативный способ доступа к закрытым членам?