jiangyuxuan

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年2月14日

delphi 打印小票
摘要： procedure TForm1.Button1Click(Sender: TObject); var F:TextFile; begin Assignfile(f,'LPT1'); rewrite(f); Write(f,chr(27)+'@'); //Chr(27)+'@' 即ESC @ 指令 WRITELN(F,'TEST1 FIRST LINE'); WR... 阅读全文
posted @ 2009-02-14 22:34 江宇旋 阅读(1821) 评论(0) 推荐(0)

chr码值对应列表大全
摘要： Chr("0") 为0的字符 Chr("1") Chr("2") Chr("3") Chr("4") Chr("5") Chr("6") Chr("7") 响铃 Chr("8") 回格 Chr("9") tab(水平制表符) Chr("10") 换行 Chr("11") tab(垂直制表符) Chr("12") 换页 Chr(" 阅读全文
posted @ 2009-02-14 22:32 江宇旋 阅读(5742) 评论(0) 推荐(1)