一个看不懂的事件过程-进来你也能学到东西

Question

    property OnProcessRequest: TProcessRequest read FProcessRequest write FProcessRequest;
  一个这样的过程。我应该怎么给他赋值呀。。  以下是我使用的。假设上面的事件在FThreadPool类里面。然后我需要将一个另过程赋值给OnProcessRequest过程。应该彼赋值??
  FThreadPool.OnProcessRequest := DealwithCommRecvData;  我用这样的方法不行!赋值时说incompatible types: 'TprocessRequest' and 'Class reference'
  procedure DealwithCommRecvData(Socket:TObject); 另一过程的声明

Answer 1

我的好像不是这样的，好像是这个样子，property OnProcessRequest: TOnProcessRequest read FOnProcessRequest write GetOnProcessRequest;
继续问问对吗？我也对这个有点疑问。 

Answer 2

TProcessRequest是怎样定义的 FProcessRequest是TProcessRequest么？

Answer 3

TProcessRequest = procedure(Sender: TThreadsPool; WorkItem: TWorkItem;
    aThread: TProcessorThread) of object;

Answer 4

我应该怎么创建DealwithCommRecvData过程呀

Answer 5

按照这个原型实现一个啊
procedure DealwithCommRecvData(Sender: TThreadsPool; WorkItem: TWorkItem; aThread: TProcessorThread);放到你的类方法里面
然后就可以赋值了

Answer 6

.ProcessRequest
是一个属性...

Answer 7

property OnProcessRequest: TProcessRequest read FProcessRequest write FProcessRequest;
是一个属性

Answer 8

过程/函数定义为
procedure/function (...) of object
的,需要这样定义
procedure/function TXXXX.Fun(....)
也就是需要是类的方法/函数,而不是普通过程/函数

Answer 9

DealwithCommRecvData   聲明一個相同過程類型，然後改變下指針即可。

Answer 10

事件类型不对吧楼主是不是搞串口通讯COM程序？
用COMPORT3.1控件吧，很方便的