17.1. Содержимое модуля Printer

Этот модуль содержит всего одну переменную и две строки исполняемого текста. Он устанавливает соответствие между переменной Lst и системным устройством LPT1 (первым параллельным портом). Полный текст модуля приведен на рис. 17.1.

| UNIT Printer;

| INTERFACE

| VAR

| Lst : Text;

| IMPLEMENTATION

| BEGIN

| Assign (Lsr, ‘LPT1’);

| ReWrite (Lst)

| END.

Рис. 17.1

После подключения модуля Print операторы Write(Lst,…) и WriteLn(Lst,…) будут выводить данные непосредственно на принтер.

Поначалу этот модуль может показаться лишним, так как его вполне можно «растворить» в основной программе. Однако, если программа строится из модулей, многие из которых выводят данные на печать, наличие общей для всех них переменной Lst, связанной с принтером, весьма удобно.

Если принтер подключен через какое-нибудь другое устройство, например через второй порт LPT2 или через последовательный порт COM1, то можно создать свой собственный модуль Printer2 по аналогии с рис. 17.1, заменив LPT1 на другое имя и оттранслировав его.