delphi 7 升级 到 xe2 CHAR类型变化

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就不能用了。