首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

谁能帮忙将这段C++代码转成Delphi

2013-07-08 
哪位高手能帮忙将这段C++代码转成Delphi?C++代码如下,无奈我功力不足,苦无办法翻译成delphi,只得请教高手

哪位高手能帮忙将这段C++代码转成Delphi?
C++代码如下,无奈我功力不足,苦无办法翻译成delphi,只得请教高手了。

struct  GDIOPERATION;
typedef GDIOPERATION  *PGDIOPERATION;
typedef VOID (WINAPI *GDIOPERATIONFUNC)( PGDIOPERATION pOper, PVOID pVal1, PVOID pVal2, PVOID pVal3 );

typedef struct GDIOPERATION
{
PVOID pIs;
GDIOPERATIONFUNC  SetGDIText;
GDIOPERATIONFUNC  SetGDITextColor;
GDIOPERATIONFUNC  SetGDITextFormat;
GDIOPERATIONFUNC  SetGDITextPosition;
GDIOPERATIONFUNC  SetGDIGraph;
GDIOPERATIONFUNC  SetGDIGraphPen;
GDIOPERATIONFUNC  SetGDICanCalAll;
GDIOPERATIONFUNC  SetGDICanCalOne;
}GDIOPERATION, *PGDIOPERATION;
[解决办法]


type
  GDIOPERATIONFUNC = procedure(pOper: PGDIOPERATION; 
    pVal1, pVal2, pVal3:Pointer); stdcall;
  PGDIOPERATION = ^GDIOPERATION;
  GDIOPERATION = record
    pIs: Pointer;
    SetGDIText: GDIOPERATIONFUNC;
    //..... 下面照着写
  end;

[解决办法]
改下顺序
type
  // 定义结构体指针
  PGDIOPERATION = ^GDIOPERATION; 
  // 定义函数指针
  GDIOPERATIONFUNC = procedure(pOper: PGDIOPERATION;
    pVal1, pVal2, pVal3: Pointer); stdcall;
  // 结构体定义
  GDIOPERATION = record
    pIs: Pointer;
    SetGDIText: GDIOPERATIONFUNC;
    //..... 下面照着写
  end;
[解决办法]
你得把上面我给你的代码放在单元接口部分,不然下面使用就找不到这些类型定义

热点排行