7.0代码
ROOM,STIME,GNAME,GID,gate:ARRAY[0..50] OF CHAR;
function ReadCard(ROOMNO,GATE,STIME,GUESTNAME,GUESTID,track1,track2:pchar;CARDNO,st,Breakfast:pinteger):integer;stdcall external 'MainDll.Dll';
XE2 代码
ROOM, STIME, GNAME, GID, GATE,tt1,tt2: ARRAY[0..50] OF ansiChar;
function ReadCard(ROOMNO, GATE, STIME, GUESTNAME, GUESTID, track1,
track2: pansiChar; CARDNO, st, Breakfast: PINTEGER): integer;
stdcall external 'MainDll.Dll';
总结一下
就是CHAR变ansiChar了。
有很多7.0升级到XE2就不能用了。