type TFunc=procedure; procedure MyFunc; begin ShowMessage('Run my func'); end; procedure TForm1.Button1Click(Sender: TObject); var ptr:Pointer; func:TFunc; begin func := MyFunc; func; //ok ptr := @@func; //误写作ptr := @func;报内存访问错误 TFunc(ptr^); end;但是这样也可以：
procedure TForm1.Button1Click(Sender: TObject); var ptr:Pointer; func:TFunc; begin func := MyFunc; func; //ok ptr := @func; TFunc(ptr); end;
后续...
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
