C＋＋ 这段头文件里的代码那位高手帮忙翻译成pascal
#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
请大侠翻译并解释一下，分不够再加！！
[解决办法]
有些时候考虑问题需要变通一些，你得先了解需要实现的功能
[解决办法]
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;
