0

Собсно сабж, есть класс

TSomeClass   = class
  onMyEvent  : Procedure(t:TObject);
  Procedure MyProc;
end;

и Код:

Procedure SomeProc(t:TObject);
Begin
end;

Procedure TSomeClass.MyProc;
Begin
  onMyEvent(p);//P- TObject;
end;
//////////////
Var
  MySomeClass: TSomeClass
Begin
  MySomeClass.onMyEvent:=SomeProc;
  MySomeClass.MyProc;
end.

Все бы было хорошо. но ведь процедура может быть не установлена.. как отследить такой момент?

Procedure TSomeClass.MyProc;
Begin
  if onMyEvent<>nil then //Так не выходит. 
  //if Pointer(onMyEvent)<>nil then //Тоже не выходит 
  //ругается что не достаточно параметров;
  onMyEvent;
end;
5
  • onMyEvent: TNotifyEvent так будет работать 27 ноя 2013 в 16:09
  • не будет так работать) учите паскали... TNotifyEvent - метод, у меня процедура. 27 ноя 2013 в 17:11
  • да, не сразу прочитал ваш заголовок. сбило с толку onMyEvent. 27 ноя 2013 в 23:22
  • TNotifyEvent - не метод, а процедурный тип TNotifyEvent = procedure(Sender: TObject) of object; в официальной справке рекомендуют проверять так ка предложил Вам Alouette
    – Praddos
    28 ноя 2013 в 5:26
  • of object; - метод! 17 дек 2013 в 14:34

1 ответ 1

3

Обычно проверяют так:

if assigned(onMyEvent) then
begin
  onMyEvent;
end;
3
  • тогда уж так if assigned(@onMyEvent) then... и то врядли. 27 ноя 2013 в 16:15
  • Спасиб) до этого всегда делал Pointer и Call 27 ноя 2013 в 16:18
  • Оба варианта рабочие... 27 ноя 2013 в 16:33

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.