一个关于TextFile的问题?

Question

var
FileStr: TextFile;
begin
  AssignPrn(FileStr,'Lpt1');
  Rewrite(FileStr);
  Write(FileStr,'经济经济经济经济经济经济经济经济');
  CloseFile(FileStr);
end;(打印没有乱码)var
FileStr: TextFile;
begin
  AssignFile(FileStr,'Lpt1');
  Rewrite(FileStr);
  Write(FileStr,'经济经济经济经济经济经济经济经济');
  CloseFile(FileStr);
end;(打印有乱码)我用第一段程序往打印机写数据可以打印出来
但我用第二段程序往打印机写的时候会出现乱码!
是不是我打印机有问题还是我的程序有问题?
我的打印机用WORD可以打出数据,但就上面的第二段程序可以打出来(以前我也用同样的方法往专用的票据打印机是可以输出数据的)
????????????????????

Answer 1

是在同一个程序里吗？第二个FILESTR你换个名字试试，也许用了同一个名字引起的

Answer 2

是不是AssignFile，AssignPrn对于文件类型支持的问题啊？

Answer 3

ASsignPrn是对文本文件操作的函数，所以打印没有乱码！