/*将C语言，改为Delphi*/ ( 积分: 100 )

int _stdcall TA_ReadCardSimple(AccountMsg * pAccMsg);

/*C调用*/
AccountMsg am;
memset(&am , 0 , sizeof(am));
int nRet = TA_ReadCardSimple(&am);

/*C结构*/
typedef struct
{
char Name[21]; /*姓名*/
char SexNo[2]; /*性别*/
char DeptCode[19];/*部门代码*/
unsigned int CardNo; /*卡号*/
char IDCard[21]; /*身份证号*/
char PID[3]; /*身份代码*/
} AccountMsg;

Type
AccountMsg = Record
Name : array[0..20] of char; ///*姓名*
SexNo :array[0..1] of char;///*性别*/
DeptCode : array[0..18] of char; ///*部门代码*/
CardNo : UINT; ///*卡号*/
IDCard : array[0..20] of char;///*身份证号*/
PID : array[0..2] of char;///*身份代码*/
end;
PAccountMsg = ^AccountMsg;

Function TA_ReadCardSimple(pAccMsgAccountMsg):Integer;stdcall;
//如果你的C函数在DLL中,请
Function TA_ReadCardSimple(pAccMsgAccountMsg):Integer;stdcall; external 'XXX.DLL';


调用方式
var
am : AccountMsg;
nRet : Integer;
begin
FillMemory(@am,SizeOf(AccountMsg), 0);
nRet := TA_ReadCardSimple(@am);
end;

大致差不多，C转DELPHI是很容易的。