- uses
- StrUtils;
- Function SerialPrint(uart:integer;Data:string):boolean;stdcall external 'ZebraPrint.dll'
- Function ParallelPrint(Data:string):boolean;stdcall external 'ZebraPrint.dll'
- procedure TForm1.PrintInit();
- var
- //strm:string;
- i,j:integer;
- a:array[1..2000] of string;
- F: TextFile;
- begin
- j:=1;
- //定位程序目录下的txt文件
- AssignFile(F,ExtractFilePath(Application.ExeName)+ModelTxt.Text+'.txt');
- Reset(F);
- while not Eof(F) do
- begin
- Readln(F,a[j]);
- j:=j+1;
- end;
- CloseFile(F);
- //打印标签
- for i:=1 to j do
- begin
- if (a[i]='') then
- begin
- a[i]:=' '
- end;
- ParallelPrint(a[i]);
- end;
- //调试标签
- if chkPrintFile.Checked then
- begin
- AssignFile(F,ExtractFilePath(Application.ExeName)+'1.txt');//关联外部文件
- ReWrite(F);//覆盖文件,若文件不存在则创建文件
- Reset(F);//对于文本文件,只读方式打开,指针位于文件开头处
- for i:=1 to j do
- begin
- if (a[i]='') then
- begin
- a[i]:=' '
- end;
- Append(F);
- WriteLn(F,a[i]);
- end;
- CloseFile(F);
- end;
- end;
- //该片段来自于http://www.codesnippet.cn/detail/16112012407.html
来源: http://www.codesnippet.cn/detail/16112012407.html