如下:
Ret=Read_GeustCard(port:integer;m_hotel:byte):GuestCard_Info
其中GuestCard_Info数据类型定义如下:
type
GuestCard_Info=Record
m_process:integer;
roomid:integer;
card_no:integer;
b_year,e_year,b_month,e_month,b_day,e_day,b_hour,e_hour,b_min,e_min:integer
end;
Ret. m_process =0 读卡成功
如何声明,请高人指点,不胜感谢!
Ret=Read_GeustCard(port:integer;m_hotel:byte):GuestCard_Info
其中GuestCard_Info数据类型定义如下:
type
GuestCard_Info=Record
m_process:integer;
roomid:integer;
card_no:integer;
b_year,e_year,b_month,e_month,b_day,e_day,b_hour,e_hour,b_min,e_min:integer
end;
Ret. m_process =0 读卡成功
如何声明,请高人指点,不胜感谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货