摘要：
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... 阅读全文
|
摘要：
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... 阅读全文
摘要：
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(" 阅读全文
|