Определение имени реального класса

Posted by maloy under Delphi, Архив

megachuhancer

Есть ли какой-нибудь способ внутри метода узнать метод какого конкретного класса вызывается? Например, у меня есть класс TBasicClass и в нём метод Method. И куча классов-потомков TDerivativeClass1, TDerivativeClass2… Есть массив типа TBasicClass или просто переменная типа class of TBasicClass. Осуществляется вызов типа a.Method или ClOfB.Method. Как узнать внутри метода(в потомках метод не перекрыт), метод какого именно класса вызван?

JTG

procedure TBasicClass.Method;
begin
  ShowMessage(self.ClassName);
end;

тема на форуме от 2009 года

Похожие статьи

• With … do и вызов функции. Как получить указатель на сам объект?
• Как получить ссылку на объект класса?