Mega Code Archive

 

Categories / Delphi / Printing

 

How to print text

Title: How to print text var F: TextFile; begin AssignFile(F, 'LPT1');// LPT2,COM1,COM2... Rewrite(F); Writeln(F, 'Hello'); Writeln(F, 'There!'); Writeln(F, #12); CloseFile(F); end;