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
相关问答：
QQ群 29152388
友情UP
帮顶
up
帮up
up 支持！
up jf
...难道有分..?
up up up
希望有得加分，哈哈。
支持，我加了，希望楼主能加我，共同学习哈
加了。
顶上，每天收获一点，支持� ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
#include"stdio.h"
#include"stdlib.h"
void ContrTwo(char i)
{
char str1[8];
itoa(i,str1,2);
printf("%s",str1);
}
unsigned char leftRot(char str,int i);
unsign ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
有一10*10矩阵，除去第一个点（0，0）和最后一点（9，9），还有八个点为1，其他都为0，要求用二维数组表示。八个点是随机生成的，编写相关程序表示矩阵所有可能情况。
真心求教各位高手，哎！本人太菜了！呵呵！
......
