В одном базовом классе есть защищенная процедура. Унаследовав этот класс, я хочу скрыть эту процедуру от использования извне. Я попытался переопределить его из разделов private и даже strict private , но он все еще может быть вызван извне. Класс Original мне не принадлежит, поэтому я не могу изменить определение TOriginal
.
Можно ли скрыть эту процедуру в моем унаследованном классе? А как?
type
TOriginal = class(TObject)
protected
procedure SomeProc;
end;
TNew = class(TOriginal)
strict private
procedure SomeProc; override;
end;