C＋＋ 这段头文件里的代码那位高手帮忙翻译成pascal

Question

#ifdef __cplusplus
extern "C" {           // C Plus Plus function bindings
#define extern
#endif#if (defined (__cplusplus) || defined( __STDC__ ))  /* Function Prototypes - ANSI C & C++ */extern int __cdecl dx_getqualtmplate(int ChDev, int Qualid, TN_QLT * Qltp);
extern int __cdecl dx_setqualtmplate(int ChDev, int Qualid, TN_QLT * Qltp);
extern int __cdecl dx_getextqualtmplate(int ChDev, int Qualid, int Size, TN_QLT * Qltp);
extern int __cdecl dx_setextqualtmplate(int ChDev, int Qualid, int Size, TN_QLT * Qltp);
#else
extern int __cdecl dx_getqualtmplate();
extern int __cdecl dx_setqualtmplate();
extern int __cdecl dx_getextqualtmplate();
extern int __cdecl dx_setextqualtmplate();
#endif#ifdef __cplusplus
}                      // C Plus Plus function bindings
#undef extern
#endif请大侠翻译并解释一下，分不够再加！！

Answer 1

procedure dx_getqualtmplate( ChDev: integer; Qualid: integer; Qltp: ^TN_QLT ); cdecl;
procedure dx_setqualtmplate( ChDev: integer; Qualid: integer; Qltp: ^TN_QLT ); cdecl;
procedure dx_getextqualtmplate( ChDev: integer; Qualid: integer; Size:integer; Qltp: ^TN_QLT ); cdecl;
procedure dx_setextqualtmplate( ChDev: integer; Qualid: integer; Size:integer; Qltp: ^TN_QLT ); cdecl;