我正在自定义线程中创建请求队列,TMyThread
并且在定义可用于子例程的过程类型时遇到了困难。我有一个代表请求的记录,一个相应的记录指针,以及一个在记录中使用并使用记录指针的过程类型......
type
PRequest = ^TRequest;
TResponseProc = procedure(Sender: TMyThread; Request: PRequest);
TRequest = record
Request: String;
Proc: TResponseProc;
Response: String;
end;
问题是,当我实现一个名为ResponseProc
并尝试分配ResponseProc
给 a的子例程时TResponseProc
,它不起作用,并且 IDE 返回此错误消息:
[DCC Error] MyProject.dpr(42): E2094 Local procedure/function 'ResponseProc' assigned to procedure variable
如何定义此过程类型TResponse
并将其与子例程一起使用?