最近好忙呀！

最近工作和自己的事情太多了。今天因为客户要用pos机打印程序，我做了一个打印程序发现很慢，而且如果连续打印2次以上还会出现乱码问题，估计是因为缓存问题吧，导致数据混乱的原因，所以只好采用其他方式来打印，特写了如下一段程序发现很好用哦。提供给大家借鉴吧，也许你会碰到。
源代码如下：
procedure pos_print(s:string)
var
            MYFile:TextFile;
begin
  try
    Assignfile(MyFile,'com1');//此处视端口情况自己设置
        Rewrite(MyFile);
        writeln(myfile,s);
  FINALLY
        CloseFile(MyFile);
    END;

end;