Как скрыть защищенная процедура объекта?

В одном базовом классе есть защищенная процедура. Унаследовав этот класс, я хочу скрыть эту процедуру от использования извне. Я попытался переопределить его из разделов private и даже strict private , но он все еще может быть вызван извне. Класс Original мне не принадлежит, поэтому я не могу изменить определение TOriginal .

Можно ли скрыть эту процедуру в моем унаследованном классе? А как?

type
  TOriginal = class(TObject)
  protected
    procedure SomeProc;
  end;

  TNew = class(TOriginal)
  strict private
    procedure SomeProc; override;
  end;
7
задан Jerry Dodge 22 February 2012 в 18:57
поделиться