Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

Назначит событию процедуру   Найти похожие ветки 

 
Vovan#1   (2006-08-13 13:22) [0]

Хочу назначить потомку TThread процедурку для выполнения в OnTerminate:


interface

procedure OnFinished(Sender: TObject);

imlementation

...
 T := TMyThread.Create(AComponent, ....);
 with T do
  begin
   OnTerminate := OnFinished;
  end;
...


И ругается на
E2009 Incompatible types: "method pointer and regular procedure"

Расскажите, что они там ещё понапридумывали (я должен присваивать метод????)?

(Delphi 2005)


 
DprYg ©   (2006-08-13 13:32) [1]

http://www.rsdn.ru/article/delphi/Handlers.xml


 
begin...end ©   (2006-08-13 13:34) [2]

Не знаю, что они там попридумывали в Delphi 2005, но такой код не будет компилироваться и в более ранних версиях.

Свойству OnTerminate следует присвоить значение типа TNotifyEvent, т.е. метод, а не процедуру. Это может быть классовый метод или метод объекта (например, того же потомка TThread).

Есть и другой способ -- "сконструировать" значение типа TNotifyEvent самостоятельно, из указателя на экземпляр класса (если он будет использоваться внутри обработчика OnTerminate) и адреса кода процедуры (только её в этом случае надо будет описать по-другому).


 
Ketmar ©   (2006-08-13 13:40) [3]

> [2] begin...end ©   (13.08.06 13:34)

> сконструировать" значение типа TNotifyEvent самостоятельно

а не проще объявить один класс с классовой процедурой? %-)


 
begin...end ©   (2006-08-13 13:54) [4]

> Ketmar ©   (13.08.06 13:40) [3]

Разве в [2] я не упомянул об этом способе?


 
DiamondShark ©   (2006-08-13 14:02) [5]

А зачем тогда шаманские пляски с "конструированием значения", если есть легальный способ?
Выгод-то никаких...


 
Ketmar ©   (2006-08-13 14:15) [6]

> [4] begin...end ©   (13.08.06 13:54)
пардон, не заметил. извиняюсь.


 
begin...end ©   (2006-08-13 14:22) [7]

> DiamondShark ©   (13.08.06 14:02) [5]

А чего в них шаманского? Тоже вполне легальный способ, по-моему.

Впрочем, что выбрать -- решать, конечно, автору.


 
Vovan#1   (2006-08-13 17:06) [8]

Та статья всё разъянила. Спасибо за внимание.



Страницы: 1 вся ветка

Текущий архив: 2006.09.03;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.054 c
15-1155392134
SergP
2006-08-12 18:15
2006.09.03
RSDN magazine в электронном виде. Есть где-то или нет?


2-1155656960
Nici
2006-08-15 19:49
2006.09.03
Вопрос


3-1151210776
antoxa2005
2006-06-25 08:46
2006.09.03
Можно ли как-нибудь обратиться к базе Access на дрегом компьютере


1-1152901088
_mik
2006-07-14 22:18
2006.09.03
Перебор текста по словарю


15-1155213860
StriderMan
2006-08-10 16:44
2006.09.03
Сколько значений может содержать один миллибит