Распечатать текст

Советы » Принтеры и Печать » Распечатать текст

var

F: TextFile; begin

AssignFile(F, 'LPT1'); // LPT2, COM1, COM2... Rewrite(F); Writeln(F, 'Hello'); Writeln(F, 'There!'); Writeln(F, #12); CloseFile(F); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com