M
mos
Unregistered / Unconfirmed
GUEST, unregistred user!
请问下,我想把过程做成一个可修改的文件,来调用可以吗?因为要经常修改内容。我的过程如下:procedure TF_PrintCode.PrintCodeLabel;var firstx,Tmp_Qty,n,Copys:integer; Tmp_Hh,Tmp_Cm,Tmp_Zj,Tmp_Ys,Tmp_Txm:String;BEGINwindowsfont((n-1)*330+66, 10, 32, 0, 2, 0, 'Arial', Pchar(Tmp_Hh));windowsfont( (n-1)*318+82, 40, 24, 0, 2, 0, 'Arial', Pchar(Tmp_Cm));windowsfont( (n-1)*318+148, 40, 24, 0, 2, 0, 'Arial', Pchar(Tmp_Zj));windowsfont( (n-1)*318+248, 40, 24, 0, 2, 0, 'Arial', Pchar(Tmp_Ys)); barcode(Pchar(InttoStr((n-1)*338+20)), '75', '128', '50', '1', '0', '2', '1', Pchar(Tmp_Txm));END;