c中的结构体该怎么转换。。。。。。。。

[mandarin]

typedef struct _CallBackFunction
{
int (__cdecl *OnUserLogin)(int iEventType, const char* UserName);

int (__cdecl *OnUserLogout)(int iEventType, const char* UserName);

}CallBackFunction;

要开发一个接口，他提供的是。h的文件，现在想把它转换成pas的用delphi开发，但是上面这种结构体中带函数申明的改怎么弄啊，哪位大佬知道额。。。

[sanguomi]

type
OnUserLogin = function(iEventType: Integer; const UserName: Pchar) :Integer; cdecl;

type
_CallBackFunction = record
UserLogin: OnUserLogin;
UserLogout: OnUserLogin;
end;
CallBackFunction = _CallBackFunction;

[sanguomi]

C++ 调用

#include <stdio.h>
#include <iostream>
using namespace std;

typedef struct _CallBackFunction
{
	int (__cdecl *OnUserLogin)(int iEventType, const char* UserName);
	
	int (__cdecl *OnUserLogout)(int iEventType, const char* UserName);
	
}CallBackFunction;

int UserLogin(int iEventType, const char* UserName)
{
	cout<<UserName<<endl;
    return 0;
}

int main()
{
	CallBackFunction a;
        a.OnUserLogin = UserLogin;
	a.OnUserLogin(2, "test");
	return 0;
}