C++代码翻译成delphi代码
C++代码如下：
int Query_Pos_Card12（HANDLE icdev，LPINT CardType, LPINT Opt_Num, LPINT Serno，LPSTR Cardno，
unsgind long * CardSerno， LPINT Value，LPINT Count，LPINT UserType，,LPINT Consum_Add, LPINT use_term ,
int WaitTime）
并且给出在delphi中如何调用，我的调用过程如下：
procedure TForm1.Button2Click(Sender: TObject);
var
MlngCardID:PInteger; //卡流水号
MstrPressWorkID:string; //用户对外编号
MlngCardTypeID:PInteger; //卡类型（0 - 用户卡，1 - 操作员卡，2 - 系统卡，4 - 空白卡）
MlngValue1:PInteger; //卡剩余金额：实际金额*100
MlngCount1:PInteger; //卡消费次数
MLngConsumAdd:PInteger; //上次消费的消费机地址
MLngUseTerm:PInteger; //单位为月， <255。暂时未开放次功能，此参数必需为0。
MlngSaleOperatorID:PInteger; //上次消费时使用的设备的管理员卡编号
MlngAddCount:PInteger; //当天的累计消费次数
MlngCardUsageType:PInteger; //用户卡类型（1－8）
strTerm:string; //有效期字符串
i
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
大家好，这是一个主要面向c/c++/mfc的群，最近进行了一次大清理，欢迎各位高手加入，好学爱问的新手，也可以申请的，申请格式 职业（c/c++/mfc 任选一或者多） 工作年限（学生直接写大几）就行了，入群的要求就是要� ......
C语言编程 从键盘上输一个单词 判断单词是否在词库有，词库是一个文本。
scanf("%c",&c);
if()判断就行了。
抢SF。
写的短
引用
scanf("%c",&c);
if()判断就行了。
抢SF。
......
