|
=''''0'''';
dyqdf:='''''''';
dddf:='''''''';
fldf:='''''''';
end;
end;procedure pdrPrintObj(zs_bz:String=''''0'''');
var
lpt: TextFile;
str,Other:String;
begin
AssignFile(lpt, ''''LPT1'''');
try
ReWrite(lpt);
with PrintObj do
begin
BlackMark:=''''SP512MC'''';
if UpperCase(BlackMark)=UpperCase(''''SP512MC'''') then
begin
Writeln(lpt, '''''''');
Writeln(lpt, Format('''' %S'''', [sswyj]));
Writeln(lpt, Format('''' %S %S'''', [Hbsbh, dffsny]));
Writeln(lpt, Format('''' %S'''', [Khmc]));
Writeln(lpt, Format('''' %S'''', [Khdz]));
Writeln(lpt, Format('''' %-11S%-11S%-11S'''', [Dbcbh1,Dbcbh2,Dbcbh3]));
Writeln(lpt, Format('''' %-11S%-11S%-11S'''', [Jsbl1,Jsbl2,Jsbl3]));
Writeln(lpt, Format('''' %-11S%-11S%-11S'''', [Scbm1,Scbm2,Scbm3]));
Writeln(lpt, Format('''' %-11S%-11S%-11S'''', [Bcbm1,Bcbm2,Bcbm3]));
Writeln(lpt, '''''''');
Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl1, Shdl1, Fldj1,
Fldf1]));
Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl2, Shdl2, Fldj2,
Fldf2]));
Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl3, Shdl3, Fldj3,
Fldf3]));
Writeln(lpt, Format('''' %-20S%S'''', [Hjdl, Hjdf]));
//zs_bz:走收标致"1"为走收，"0"非走收
if zs_bz=''''0'''' then
begin
Writeln(lpt, Format('''' %-20S%S'''', [Scjy, Bcss]));
Writeln(lpt, Format('''' %-20S%S'''', [Bcxz, Bcjy]));
Writeln(lpt, Format('''' %S'''', [Ssdx]));
end
else
begin
Writeln(lpt, Format('''' %-20S%S'''', ['''''''', Hjdf]));
Writeln(lpt, Format('''' %-20S%S'''', [Hjdf, '''''''']));
Writeln(lpt, Format('''' %S'''', [JeToDx(StrToFloatDef(Hjdf,0))]));
end;
Writeln(lpt, Format('''' %-15S%-15S%S'''', [Cby, Sky, Rq]));
Writeln(lpt, '''''''');
Writeln(lpt, Format('''' %S'''', [Fphm]));
Writeln(lpt, Format('''' %-24S%S'''', [Hbsbh, dffsny]));
if zs_bz=''''0'''' then
begin
Writeln(lpt, Format('''' %-24S%S'''', [Bcss, Bcjy]));
end
else
begin
Writeln(lpt, Format('''' %-24S%S'''', [Hjdf+JeToDx(StrToFloatDef(Hjdf,0)), '''''''']));
end;
Writeln(lpt, Format('''' %-23S%S'''', [Sky, Rq])); //发送黑标指令
Write(lpt, #12);
end
end;
finally
CloseFile(lpt);
end;
end;
end.
上一页 [1] [2]
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
