Как определить, является ли метод потомком TNotifyEvent

Delphi , Компоненты и Классы , RTTI

Автор: Jack Sudarev
WEB-сайт: http://www.lmc-mediaagentur.de

If I am given a TPersistent object, and a method name, is there a way to determine if the name is an event of TNotifyEvent type? For example, given a TPersistent lMyObj and an event name, "OnDataChanged", how can I determine if OnDataChanged is a TNotifyEvent?

function IsNotifyEvent(Sender: TObject; const Event: string): Boolean;
var
  PropInfo: PPropInfo;
  Method: TNotifyEvent;
begin
  Result := False;
  PropInfo := GetPropInfo(Sender.ClassInfo, Event);
  if not Assigned(PropInfo) then
    Exit;
  if PropInfo.PropType^.Kind <> tkMethod then
    Exit;
  Method := TNotifyEvent(GetMethodProp(Sender, PropInfo));
  Result := Assigned(Method);
end;

Here is the translation of the text into Russian:

Код, который вы предоставили, является хорошим стартом для определения типа события TNotifyEvent. Однако, есть несколько проблем с ним.

Сначала метод GetPropInfo используется для получения информации о свойстве в классе объекта. Но этот метод возвращает PPropInfo, содержащий информацию о любом свойстве, а не только о методе. Поэтому вам нужно проверить, является ли это свойство действительно методом перед попыткой преобразовать его в TNotifyEvent.

Вторично, при вызове GetMethodProp (используемый для получения метода-свойства) объект, передаваемый как аргумент, должен быть сам объект (Sender) а не его класс-информация.

Вот как вы можете исправить эти проблемы:

function IsNotifyEvent(Sender: TObject; const Event: string): Boolean;
var
  PropInfo: PPropInfo;
begin
  Result := False;
  PropInfo := GetPropInfo(Sender.ClassInfo, Event);
  if not Assigned(PropInfo) then
    Exit;
  if PropInfo^.PropType^.Kind <> tkMethod then
    Exit;
  Result := PropInfo^.PropType = TClass(TNotifyEvent);
end;

В этом коде GetPropInfo используется для получения информации о свойстве в класс-информации объекта. Затем проверяется, является ли это свойство методом. Если это так, то сравниваются типы свойства и TNotifyEvent. Если они равны, то событие типа TNotifyEvent, и функция возвращает True.

Обратите внимание, что этот код предполагает, что класс-информация объекта имеет событие с тем же именем, которое передается в функцию. Если объект не имеет такого события, или если он имеет свойство с тем же именем, но не типа TNotifyEvent, то функция вернет False.

В статье описывается функция IsNotifyEvent, которая determines whether a given method name is an event of type TNotifyEvent by checking if the property with that name exists and its value is a TNotifyEvent method.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::