Var F:TextFile;
PDStr:string;
Begin
try
PDStr:='汉字测试!'+chr(10);
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, PDStr);
CloseFile(F);
Except
Messagedlg('数据发送失败!',mterror,[mbok],0);
End;
end;
是不是在打汉字之前要加什么指令??????多谢!!!!
PDStr:string;
Begin
try
PDStr:='汉字测试!'+chr(10);
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, PDStr);
CloseFile(F);
Except
Messagedlg('数据发送失败!',mterror,[mbok],0);
End;
end;
是不是在打汉字之前要加什么指令??????多谢!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货