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

Delphi , ОС и Железо , Принтеры и Печать

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

Программа на языке Паскаль для печати текста "Hello", "There!" и символа новой строки (#12) на устройстве вывода.

В этом примере устройство вывода установлено в LPT1 (обычно это принтер). Код присваивает файлу 'F' указанное устройство, затем очищает содержимое файла и пишет текст в него.

Чтобы запустить этот код:

1. Откройте ваш компилятор Паскаля или IDE.
2. Создайте новый проект и вставьте это код в него.
3. Скомпилируйте и запустите программу.
4. Текст "Hello", "There!" и символ новой строки будет печататься на указанном устройстве вывода (LPT1, обычно это принтер).

Если вы хотите печатать текст в консоль вместо принтера, можно заменить 'LPT1' на 'Console'.

Пример:

var
  F: TextFile;

begin
  AssignFile(F, 'Console');   // Console
  Rewrite(F);
  Writeln(F, 'Hello');
  Writeln(F, 'There!');
  Writeln(F, #12);
  CloseFile(F);
end.

Эта программа будет печатать текст "Hello", "There!" и символ новой строки в консоль.

Программа на языке Паскаль выводит текст 'Hello' и 'There!' на принтер LPT1.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Принтеры и Печать ::