G
gdljc
Unregistered / Unconfirmed
GUEST, unregistred user!
try
assignfile(f,'lpt1');
rewrite(f);
...
writeln(f,'名称 数量 实价 金额');
....
closefile(f);
except
on einouterror do
messagedlg('打印机输出错误，请检查打印机！',mterror,[mbok],0);
end;
为什么在打印机缺纸、没开电、卡纸等故障时都没提示，似乎messagedlg不起作用。？？？
assignfile(f,'lpt1');
rewrite(f);
...
writeln(f,'名称 数量 实价 金额');
....
closefile(f);
except
on einouterror do
messagedlg('打印机输出错误，请检查打印机！',mterror,[mbok],0);
end;
为什么在打印机缺纸、没开电、卡纸等故障时都没提示，似乎messagedlg不起作用。？？？