哪位高手能帮忙将这段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;
[解决办法]
你得把上面我给你的代码放在单元接口部分，不然下面使用就找不到这些类型定义