请问 这个 type T_ic_init = function() 是什么用法

Question

代码如下：
// unit Drive_MHUnit;    type  
  T_ic_init = function(port: smallint; baud: longint): longint; stdcall; // unit CardDrive_4442;
   ic_init: T_ic_init;// unit CardDrive_4442;
   @ic_init := GetProcAddress(Th_DLL, PChar('ic_init'));请问这个
type  
  T_ic_init = function(port: smallint; baud: longint): longint; stdcall; 是什么用法

Answer 1

实际上就是函数指针，Delphi中称之为“Procedural types”。

Answer 2

详细的就是, 你可以指定这么一个类型的变量, 比如testfunc: T_ic_init
这个时候只要设置好testfunc的值, 就可以按照你定义的那样去调用, 比如
testfunc(1,2);