哦,那么我要说,如果你在自己的进程中写好了一个函数,你想要这个函数执行。
有那些方法(提示:2种)?
有那些方法(提示:2种)?
举世而誉之而不加劝,举世而非之而不加沮,定乎内外之分,辩乎荣辱之境,斯已矣。彼其于世未数数然也。
procedure testFunc();begin ShowMessage('ok'); end; procedure TForm1.Button1Click(Sender: TObject); type pfunc=procedure(); var f:pfunc; begin testFunc(); f:=@testFunc; f(); end;