你需要给DLL中引出的同名函数赋予别名,比如:
exports
func1(n: integer) name 'Func1_Int';
func1(n: real) name 'Func1_Real';
然后,使用DLL的借口声明部分:
procedure func1(n: integer); stdcall; external 'xxx.dll' name 'Func1_Int';
procedure func1(n: real); stdcall; external 'xxx.dll' name 'Func1_Real';
exports
func1(n: integer) name 'Func1_Int';
func1(n: real) name 'Func1_Real';
然后,使用DLL的借口声明部分:
procedure func1(n: integer); stdcall; external 'xxx.dll' name 'Func1_Int';
procedure func1(n: real); stdcall; external 'xxx.dll' name 'Func1_Real';