procedure   ShowMoney(Money_Port:   String;Money_String:String)       
  //Moneey_Port     顾显接口Com1   or   Com2     Money_String     顾显显示的内容   
  var   
      PrnFileName:TextFile;   
  begin   
      Assignfile(PrnFileName,Money_Port);   
      Rewrite(PrnFileName);   
      write(PRNFileName,chr(12));         //清除顾显   
      write(PRNFileName,chr(27)+chr(81)+chr(65)+Money_String+chR(13));       //显示信息   
      CloseFile(PRNFileName);   
  end;

解决方案 »

  1.   

    Delphi中的简单文件写入而已,呵呵。
    以下代码在VS2008中经过测试。不过请注意在C#中使用的均是unicode,如果Money_string涉及到复杂编码的情况该文本的输出编码格式你可能需要修改。public static void ShowMoney(string Money_Port, string Money_string)
    {
        using (StreamWriter sw = File.CreateText(Money_Port))
        {
            sw.Write((Char)12);
            sw.Write((Char)27 + (Char)81 + (Char)65 + Money_string + (Char)13);
        }
    }static void Main(string[] args)
    {
        ShowMoney(@"E:\desktop\2xxx.txt", "sdf");
    }