简单问题,回调函数

Question

环境d5:
执行回调函数的原型:
procedure Setup_Tel(Data:DWORD;B:integer);stdcall; external 'ldt.dll';回调函数
procedure test(aPort: integer);stdcall;
var
  i,numer: integer;
begin
     .......
end;问题:在setup_tel中怎样把函数test作为参数回调
我尝试Setup_Tel(dword(@test), 1);提示没有定义'test'
后来我在public 中定义了:procedure test(aPort: integer);stdcall;
再这样编译，也不行,但是在d7中就可以,而且不需要定义

Answer 1

把procedure test(aPort: integer);stdcall; 写到外面，不要写到类里面
type
 sss = class
 private
 
 public
 
 end;procedure test(aPort: integer);stdcall;implementation
{$R *.dfm}procedure test(aPort: integer);stdcall; 
var 
  i,numer: integer; 
begin 
     ....... 
end;