使用Delphi声明C++带函数的结构体实战

    在小组开发中，应用程序部分采用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;     

    在接口部分：