Распечатать текст 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 © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
var F: TextFile; begin AssignFile(F, 'LPT1'); // LPT2, COM1, COM2... Rewrite(F); Writeln(F, 'Hello'); Writeln(F, 'There!'); Writeln(F, #12); CloseFile(F); end;
Распечатать текст