PrintDialog, PrinterSetupDialog, PageSetupDialog –Печать, Настройка принтера, Настройка параметров страницы печати

TPrinterSetupDialog, предназначен для настройки параметров работы принтера, не имеет оригинальных свойств, потому что эти настройки существенно различаются для разных видов принтеров. На основании этого компонента можно создавать свои собственные компоненты для конкретных принтеров.

TPrintDialog отображает стандартное окно печати Windows. B нем можно задать различные параметры печати, которые определяются следующими свойствами диалога.

PageSetupDialog позволяет настроить характеристики печатаемых страниц. Они задаются в свойствах Margin Bottom, MarginLeft, Margin Right, MarginTop (нижняя, левая, правая, верхняя границы печати), PageHeightH PageWidth (высота и ширина страницы), а также в свойстве Options, описывающем дополнительные параметры. Единицы измерения размеров задаются в свойстве Units.

Назначение и свойства компонентов страницы Samples

 

 

Рисунок 5– Вид страницы Samples

Gauge – отображение хода процесса

Используется для создания индикатора хода процесса в виде линейки, круговой диаграммы или текста. Аналог компонента ProgressBar.

SpinEdit – поле со счетчиком.

Свойства компонента похожи на UpDown, только имеют другие имена: MinValue, MaxValue, Value. Компонент SpinEdit во многих отношениях удобнее, если не требуются такие возможности возможностей UpDown как нестандартное расположение кнопок, «закольцовывание» изменений и т.п.  

 

Calendar –календарь на указанный месяц

Отображение календаря на указанный месяц. Основные свойства: Year, Month, Day.

 

Обработка файлов

Для доступа к файлам чаще всего используется специальная файловая переменная. Она связывается с указанным файлом процедурой AssignFile.

Эта процедура имеет синтаксис:

procedure AssignFile(var F: File, S: string);

где F — файловая переменная любого типа, S — строка, содержащая имя файла.

Открытие существующего файла осуществляется процедурой Reset, формат которой (кроме нетипизированных файлов) следующий:

procedure Reset(var F: File);

Файловая переменная F перед обращением к этой процедуре должна быть связана с файлом. Создание и открытие нового файла осуществляется процедурой Rewrite, формат которой (кроме нетипизированных файлов — см. разд. 14.14.2.3) следующий:

procedure Rewrite(var F: File);

После выполнения различных операций чтения и записи файл должен быть закрыт процедурой CloseFile:

procedure CloseFile(var F: File);

При работе с файлами, при чтении и записи в них каких-то данных возможны различные ошибки. Если не принять соответствующих мер, то эти ошибки приведут к прерыванию работы программы. Предотвратить это можно двумя путями.

Первый предполагает обработку исключений InOutError, поле errorcode которых содержит информацию о конкретном виде ошибки. Второй предполагает применение опции {$I-}, отключающей генерацию исключений ошибок ввода/вывода, и дальнейшее обращение к функции IOResull, возвращающей код ошибки и сбрасывающей его в 0 (так что повторное обращение к IOResuIt бессмысленно). После обработки операции ввода/вывода контроль ошибок можно снова включить опцией {$I+}. В этом случае общая организация работы с файлами строится примерно по такой схеме:

AssignFile (F, OpenDialogl.FileName);

{SI-}

Reset(F);

{SI+}

I:=IOResult;

if I <> 0 then <операторы обработки кода ошибки>

else...

{SI+}

<операторы чтения или записи>

{SI-}

I:=IOResult;

if I <> 0 then < операторы обработки кода ошибки >

CloseFile(var F: File);

 

При операциях ввода/вывода проверять окончание файла можно функцией Eof(F: File), возвращающей true при достижении конца файла.

Различают файлы трех видов: текстовые, файлы, типизированные файлы и нетипизированные файлы.

Текстовые файлы состоят из последовательностей символов, разбитых на строки. В Object Pascal предопределен тип TextFile, соответствующий текстовому файлу. Таким образом, объявление файловой переменной может иметь вид:

var <Имя файловой переменной>: TextFile;

Запись данных в текстовый файл осуществляется процедурой

procedure Write(var F: TextFile; <список выражений>);

Выражения могут быть типов Char, Integer, Real, string, упакованных строк, Boolean. При этом может использоваться форматирование.

Например:

Write(F, 'Baм ', I, ' лет);

Аналогичная процедура Writeln отличается от Write только тем, что после записи пишет символ перехода на новую строку, т.е. Writeln формирует одну строку.

Чтение данных из текстового файла осуществляется последовательно от его начала процедурой

procedure Read(var F: TextFile; <список переменных>);

где в списке перечисляются переменные, в которые читаются данные из файла.

Read(F, S1, I, S2]; даст значение S1, равное «Вам», значение I равное записанному числу лет, и значение S2, равное «лет».

Аналогичная процедура Readln отличается от Read только тем, что после чтения переводит текущую позицию в файле на новую строку. Если в процедуре Readln не задан список переменных, то она просто пропускает текущую строку и переходит к следующей.

Типизированные файлы

Типизированные файлы являются двоичными файлами, содержащими последовательность однотипных данных. Объявление файловых переменных таких файлов имеет вид:

var <имя файловой переменной;»: file of <тип данных>;

Тип данных может быть не только простым типом, но и, например, типом записей. Так операторы:

type

PhoneEntry = record

Fans, Nam: string[20];

PhoneNumber: string[15];

Listed: Boolean;

end;

PhorieList = file of PhoneEntry;

объявляет типизированный файл, содержащий записи телефонных номеров.

Процедуры чтения и записи Read и Write не отличаются от рассмотренных ранее для текстовых файлов. Только типы выражений при записи и переменных при чтении должны соответство-вать объявленному типу данных файла. Процедур, аналогичных Readln и Writeln для типизированных файлов нет. Зато есть процедура Seek, позволяющая перемещаться по файлу не только последовательно, как в текстовых файлах, но сразу переходить к требуемому элементу. Ее синтаксис:

procedure Seek(var F: File, N: Longint);

где N — номер элемента. Эта процедура перемещает текущую позицию в файле на нужный элемент.

Имеется также функция FilePos: function FilePos(var F): Longint; которая возвращает теку-щую позицию в файле.

Пример выполнения практического задания

Задание №