DelphiÏÂPOS»ú¿ØÖÆÇ®Ïä,¿ÍÏÔ,´òÓ¡»ú,СƱ´òÓ¡

1¡¢¿ØÖÆPOS»úµÄ¿Í»§ÏÔʾÆÁ
procedure TFrmMain.ShowMoney(Money_Port:   String;Money_String:String);
//Moneey_Port     ¹ËÏÔ½Ó¿ÚCom1   or   Com2     Money_String     ¹ËÏÔÏÔʾµÄÄÚÈÝ
var
    PrnFileName:TextFile;
begin
    Assignfile(PrnFileName,Money_Port);
    printer.Canvas.Font.Name:='ËÎÌå';
    printer.Canvas.Font.Size:=8;
    printer.Canvas.Font.Charset:=GB2312_CHARSET;
    Rewrite(PrnFileName);
    write(PRNFileName,chr(12));         //Çå³ý¹ËÏÔ
    write(PRNFileName,chr(27)+chr(81)+chr(65)+Money_String+chR(13));       //ÏÔʾÐÅÏ¢
    CloseFile(PRNFileName);
end;
2¡¢²»»»Ò³×ßÖ½µÄ´òÓ¡
procedure TFrmMain.AddPrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
Assignfile(Prn,'lpt1');
    printer.Canvas.Font.Name:='ËÎÌå';
    printer.Canvas.Font.Size:=9;
    printer.Canvas.Font.Charset:=GB2312_CHARSET;
try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
except
    on EInOutError do
      MessageBox(Handle,PChar('Îı¾´òÓ¡³ö´í!'),'¾¯¸æ',MB_ICONEXCLAMATION or MB_OK);
end;
end;
3¡¢×ßÖ½»»Ò³µÄ´òÓ¡
procedure TFrmMain.PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
    Rewrite(Prn);
    printer.Canvas.Font.Name:='ËÎÌå';
    printer.Canvas.Font.Size:=9;
    printer.Canvas.Font.Charset:=GB2312_CHARSET;
&nb