过程声明问题,我想声明一个过程,它的参数是一个过程,需要怎么生命呢?

Question

是这样的:
vc++中
void (*tpsetunsol (void (_STDCALL *)(*disp) (char *data, long len, long flags))) (char *data, long len, long flags)我需要他,
我在delphi 中
怎么声明?procedure tpsetunsol(*******************);stdcall;external'libwsc.dll';那位给点提示:怎么在声明参数为过程的的过程?

Answer 1

a是指向过程的指针
如：
type Tnotifyevent=procedure(sender:Tobject) of object
a=Tnotifyevent;那么可以
a:=botton1.onclick();
当然所有Tnotifyenent类型都可以:= 我没有做过这种的，你可以试试这种指向过程的指针

Answer 2

procedure test(s:string);
begin
  showmessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var d:procedure (s:string);
begin
  d:=test;
  d('s')
end;

Answer 3

谢谢各位得提示.问题解决,
 outer2000(天外流星) 的提示到位,
CDSoftwareWj(95927) 的我还没有领会,
是不是button.click触发a指向的过程,然后执行过程!
我说的对吗?