在小组开发中,应用程序部分采用Delphi7,一些组件使用C++做。在今天将一个动态库的C++接口声明头文件转换为D7的Unit单元时,一切都很顺利,直到遇到下面这样一个另类的东西:
typedef struct tagRecord
{
int val;
int getvalplus()
{
val++;
return val;
}
}TRecord, *PRecord;
带函数的结构体!面对这个面目狰狞的家伙,我开始无所适从,狂在GOOGLE、BAIDU里通过关键字“Delphi 带函数的记录类型”、“Delphi C++ 结构体 函数”、“Delphi record function”......结果都是无功而返。
一边搜索,还一边通过编码测试来寻找问题解决门道。起初我尝试效仿采用函数指针的方式,结果函数体无法实现,更不用说访问结构体其他成员了。
后面又一次试着采用class而非record类型来声明:
PRecord = ^TRecord;
TRecord = class
public
val: integer;
function getvalplus():integer;
end;
在接口部分: