Программа на Delphi

16.1. Структура модуля

Модуль имеет следующую структуру:

Unit ;

interface

implementation

initialization

finalization

end.

16.2. Раздел Interface

Раздел Interface модуля Unit предназначен для описания внешних компонент:

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

функций. Так, в вышеприведенном примере в разделе Interface содержатся:

. в списке Uses – ссылки на модули Windows, Messages, SysUtils,

Graphics, Controls, Forms, StdCtrls;

. в секции Type – описание типа экранной формы – класс TForm1;

. в секции Var – описание переменных Form1, b, i и описание заголов-ка

функции OneSymbStr, предназначенной для создания строки повторяю-щихся

d раз символов Ch.

16.3. Раздел Implementation

Раздел Implementation модуля Unit предназначен для описания внутренних,

т.е. доступных к использованию только внутри данного Unit, компонент:

типов, констант, переменных, процедур и функций. Так, в вышеприведенном

примере в разделе Implementation содержится описание процедуры

TForm1.Button1Click(Sender: TObject) и функции OneSymbStr.

16.4. Инициирование и завершение модуля

Всякий модуль может содержать блок инициирования и блок завершения. Эти

блоки располагаются в нижней части модуля, непосредственно примыкая к

последнему оператору end. Первый блок начинается словом initialization,

второй – словом finalization.

Блок инициирования initialization заканчивается последним оператором end

модуля либо, при наличии блока завершения, продолжается до слова

finalization.

Обычно в блоке инициирования располагаются операторы определения начальных

значений каких-либо переменных, выделения ресурсов памяти, открытия файлов

и пр., т. е. все то, что необходимо инициализировать в модуле до передачи

управления в использующие его модули.

Блок завершения может быть использован только в том случае, если модуль

имеет блок инициирования. Этот блок, в противоположность блоку

инициирования, предназначен для размещения операторов завершения, т. е.

операторов освобождения ресурсов памяти, закрытия ранее открытых в блоке

инициирования файлов и пр.

Например, модуль может заканчиваться следующими операторами:

…

Initialization {инициирование}

Ga:= 0;

AssignFile(f, 'c:\Projects\BreadPro\First.dat');

Reset(f, SizeOf(Rec1));

New(AppMem);

Finalization {завершение}

Dispose(AppMem);

CloseFile(f);

End. {последний оператор модуля}

Если несколько модулей имеют блоки инициирования, то они выполняются в том

порядке, в котором имена модулей располагаются в списке Uses головной

программы. Если несколько модулей содержат блоки завершения, то они

выполняются в порядке, противоположном порядку перечисления модулей в

списке uses головной программы.

17. Файлы

Файлом называется область данных на внешнем носителе – жестком диске,

дискете и пр. Всякий файл имеет имя, представляющее собой строку символов.

Различают обычное имя (или просто имя) и полное имя. Под полным именем

понимается абсолютный адрес файла, состоящий из пути и имени файла.

Например, строка 'C:\Program Files\Folder1\Students.dat' является полным

именем. Оно состоит из пути 'C:\Program Files\Folder1' к файлу и собственно

имени файла 'Students.dat'. Это означает, что файл 'Students.dat'

расположен на диске C в папке (директории) Program Files непосредственно в

подпапке (субдиректории) Folder1.

Ранее упоминалось, что в языке Object Pascal существует три типа файлов:

= TextFile; {текстовые файлы}

= File; {файлы без типа}

= File of ; {файлы с типом}

17.1. Файловая переменная

Для того чтобы получить доступ к файлу, его необходимо сначала открыть.

Открытие файла выполняется посредством связывания файла с особой

переменной, называемой файловой переменной. Именно файловая переменная и

характеризует тип файла. Связывание файла с файловой переменной еще не

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

процедурами, о которых будет упомянуто ниже.

Связывание файла с файловой переменной производится с помощью стандартной

процедуры AssignFile, которая имеет заголовок:

AssignFile(, );

Например, фрагмент

Var

f1: TextFile;

FullPath: String[60];

…

FullPath:= 'a:\a1.res';

AssignFile(f1, FullPath);

cодержит объявление файловой переменной f1 текстового типа и строки

FullPath, которые затем используются в исполнительной части для указания

полного имени файла и связывания его с файловой переменной f1.

17.2. Текстовые файлы

Текстовой файл – это последовательность символьных строк перемен-ной длины.

Всякая строка завершается маркером конца строки, всякий текстовой файл

завершается маркером конца файла. Такие файлы можно обрабатывать только

последовательно. Один и тот же текстовой файл не может быть открыт

одновременно для ввода и вывода. Файловая переменная этого файла имеет тип

TextFile или просто Text.

Для текстовых файлов есть две стандартные файловые переменные – Input и

Output, которые не нужно объявлять отдельно.

17.2.1. Процедуры и функции для работы с текстовым файлом

1. Procedure AssignFile(f: TextFile; FileName: String);

Связывает файловую переменную f с дисковым файлом FileName.

2. Procedure Append(f: TextFile);

Открывает существующий файл для добавления строк в конец файла. При

отсутствии файла возникает ошибка ввода/вывода.

3. Procedure Rewrite(f: TextFile);

Создает новый файл и открывает его для вывода. Если файл существует,

то он уничтожается и создается как новый. Когда новый текстовой файл

закрывается, к нему автоматически добавляется маркер конца файла.

4. Procedure Reset(f: TextFile);

Открывает существующий файл для чтения и устанавливает указатель на

первую строку файла. При его отсутствии возникает ошибка ввода/вывода.

5. Procedure Read( f: TextFile[; v1, v2, …,vN]);

Читает данные из файла и заносит их в переменные v1, v2, …, vN.

Переменные могут иметь символьный, строчный или арифметические типы.

6. Procedure Readln( f: TextFile[; v1, v2, …,vN]);

Читает данные из файла целыми строками и заносит их в переменные v1,

v2, …, vN. Если список переменных пуст, то происходит перемещение

указателя на следующую строку.

7. Procedure Write( f: TextFile[; v1, v2, …,vN]);

Записывает данные из переменных v1, v2, …, vN в файл в символьном

виде.

8. Procedure SetTextBuf ( f: TextFile; Var Buf[; Size: Integer]);

Устанавливает буфер чтения текстового файла. Процедура должна быть

вызвана после AssignFile, но до первого вызова процедур чтения. Буфер

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

конца строк. Если размер буфера не указан, то по умолчанию он

принимается равным 128.

9. Procedure CloseFile( f: TextFile);

Закрывает текстовой файл.

10. Procedure Flush( f: TextFile);

Выводит содержимое внутреннего буфера в файл.

11. Function Eof( f: TextFile): boolean;

Возвращает True, если достигнут конец файла.

12. Function Eoln( f: TextFile): boolean;

Возвращает True, если достигнут конец текущей строки.

13. Function SeekEof( f: TextFile): boolean;

Возвращает статус конца файла.

14. Function SeekEoln( f: TextFile): boolean;

Возвращает статус конца строки.

Пример:

Var

F1, F2: TextFile;

Ch: Char;

St: String[255];

Buf: array[1..4096] of Char; { текстовой буфер размером 4K}

begin

AssignFile(F1, 'T1.TXT');

SetTextBuf(F1, Buf); { большой буфер для ускорения чтения}

Reset(F1); {F1 открыт для чтения}

AssignFile(F2, 'WOOF.DOG');

Rewrite(F2); {F2 создан как новый для вывода }

while not Eof(F1) do {пока не достигнут конец файла – выполнять}

begin

Read(F1, Ch); {читает один символ из файла F1}

Write(F2, Ch); {пишет один символ в файл F2}

end;

CloseFile(F1); {файл F1 закрыт}

CloseFile(F2); {файл F2 закрыт}

Reset(F1); {F1 снова открыт для чтения}

Rewrite(F2); {F2 снова создан для вывода }

while not Eof(F1) do {пока не достигнут конец файла – выполнять}

begin

Readln(F1, St); {читает строку из файла F1}

Write(F2, St); {пишет строку в файл F2}

end;

CloseFile(F1); {файл F1 закрыт}

CloseFile(F2); {файл F2 закрыт}

end;

Приведенный фрагмент модуля является демонстрационным и предназначен для

копирования файла 'T1.TXT' в файл 'WOOF.DOG' . В первом цикле While – do

копирование ведется посимвольно, во втором цикле – построчно.

Пример процедуры, записывающей в конец текстового файла строку символов:

Procedure AddStrToTextFile(nF, St:String);

Var f: Text;

Begin

AssignFile(f, nF);

If not FileExists(nF) then Rewrite(f) {не существует, создать и открыть}

Else {иначе}

Begin

Reset(f); {существует, открыть }

While not Eof(f) do Readln(f); {передвинуть указатель в конец файла}

End;

Writeln(f, St); {записать строку }

CloseFile(f); {закрыть файл}

End;

К процедуре можно обратиться, например, так:

Var

S1: String[58];

S2: String[189];

…

AddStrToTextFile('c:\Files\ring.txt', 'Строка символов');

AddStrToTextFile('ring.txt', S1);

AddStrToTextFile('ring.txt', S2);

17.3. Файлы с типом

Файл состоит из любых однотипных компонент. Доступ к данным осуществляется

через файловую переменную. В отличие от текстового файла в таком файле

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

допустимо как записывать, так и читать записи.

Примеры объявления файловой переменной для файлов с типом:

Var

F1: File of String[45];

F2: File of Real;

F3: File of tRecord24;

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

устанавливается на следующую запись.

17.3.1. Процедуры и функции для работы с типизированным файлом

1. Procedure AssignFile( f: File of Type; FileName: String);

Связывает файловую переменную f с дисковым файлом FileName.

2. Procedure Rewrite( f: File of Type);

Создает новый файл и открывает его. Если файл существует, то он

уничтожается и создается как новый.

3. Procedure Reset( f: File of Type);

Открывает существующий файл и устанавливает указатель на первую

запись. При отсутствии файла возникает ошибка ввода/вывода.

4. Procedure Read( f: File of Type[; v1, v2, …,vN]);

Читает записи из файла и заносит их в переменные v1, v2, …, vN. Чтение

начинается с той записи, на которую установлен указатель. Типы файла и

переменных должны быть одинаковы.

5. Procedure Write( f: File of Type[; v1, v2, …,vN]);

Записывает данные из переменных v1, v2, …, vN в файл. Вывод данных

начинается с той записи, на которую установлен указатель. Если

указатель установлен на существующую запись, то при выводе она будет

замещена новой записью. Если одновременно выводится несколько записей,

то будет замещено такое же количество существующих записей. Типы файла

и переменных должны быть одинаковы.

6. Procedure Seek( f: File of Type; N: LongInt);

Перемещает указатель на запись с номером N. Первая запись имеет

порядковый номер 0.

7. Function FilePos( f: File of Type): LongInt;

Возвращает номер записи, на которую установлен указатель.

8. Procedure CloseFile( f: File of Type);

Закрывает файл.

9. Function Eof(f: File of Type): boolean;

Возвращает True, если достигнут конец файла.

10. Function FileSize(f: File of Type): LongInt;

Возвращает количество записей в файле. Например, Seek(f, FileSize(f))

установит указатель в конец файла (после последней записи).

11. Procedure Truncate(f: File of Type);

Уничтожает (отрубает) конец файла начиная с записи, на которую

установлен указатель.

17.4. Файлы без типа

Файл состоит из компонент одинакового размера. Тип данных не имеет

значения. Доступ к данным осуществляется через файловую переменную. Как и в

файлах с типом, в таком файле допустим прямой доступ к любой записи, причем

в рамках открытого файла допустимо как писать, так и читать записи.

Файловая переменная может быть объявлена так:

Var F: File;

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

устанавливается на следующую запись.

Отсутствие типа записи позволяет выполнять обработку файлов различных типов

с помощью универсальных процедур и функций.

17.4.1. Процедуры и функции для работы с файлом без типа

1. Procedure AssignFile( f: File; FileName: String);

Связывает файловую переменную f с дисковым файлом FileName.

2. Procedure Rewrite( f: File);

Создает новый файл и открывает его. Если файл существует, то он

уничтожается и создается как новый.

3. Procedure Reset( f: File[; Size: Word]);

Открывает существующий файл и устанавливает указатель на первую

запись. При отсутствии файла возникает ошибка ввода/вывода. Параметр

Size указывает размер записи открываемого файла. При его отсутствии

размер записи по умолчанию равен 1.

4. Procedure BlockRead( f: File; Var Buf; Count: Word[; Var Result:

Word]);

Читает из файла Count записей в переменную Buf. Result – реально

прочитанное количество записей.

5. Procedure BlockWrite( f: File; Var Buf; Count: Word[; Var Result:

Word]);

Пишет в файл первых Count записей из переменной Buf. Result – реально

записанное количество записей.

6. Procedure Seek( f: File; N: LongInt);

Перемещает указатель на запись с номером N. Первая запись имеет

порядковый номер 0.

7. Function FilePos( f: File): LongInt;

Возвращает номер записи, на которую установлен указатель.

8. Procedure CloseFile( f: File);

Закрывает файл.

9. Function Eof(f: File): boolean;

Возвращает True, если достигнут конец файла.

10. Function FileSize(f: File): LongInt;

Возвращает количество записей в файле. Например, Seek(f, FileSize(f))

установит указатель в конец файла (после последней записи).

11. Procedure Truncate(f: File of Type);

Уничтожает (отрубает) конец файла начиная с записи, на которую

установлен указатель.

Язык Object Pascal не накладывает никаких ограничений на длину записи

(теоретически она может иметь размер до 2 Гб).

Пример описания и обращения к функции ReadFromFile, читающей из файла nF в

позиции Pos запись r размером Sz.

function ReadFromFile(nF: String; Pos: Word; Var r; Sz: Word): boolean;

Var

g: File;

Recs, ReadReal: Integer;

RecRead: boolean;

Begin

Assign(g, nF);

Recs:= FileSize(g) div Sz; {количество записей в файле}

RecRead:= (Pos < Recs); {запись с номером Pos есть ?}

if RecRead then begin {если запись есть}

Reset(g, Sz); {открыть файл}

try

Seek(g, Pos); {установить указатель на запись}

BlockRead(g, r, 1, ReadReal); {прочитать запись}

RecRead:= (ReadReal = 1); {прочитано успешно ?}

finally

Close(g); {закрыть файл}

end;

end;

Result:= RecRead;

end {ReadFromFile};

…

Type

tStud = Record

Fio: String [60];

Curs: byte;

Stipendiya, Room: boolean;

End;

Var Stud: tStud;

…

if ReadFromFile('base2.ff1', 12, Stud, SizeOf(Stud))

then Writeln('Запись из 12-й позиции прочитана');

Приведем еще пример. В директории 'c:\Bases\SdudBase' находится файл

'AllStuds.bs', в котором хранятся данные о студентах в виде записей типа

Type

TStud = Record {студент}

Fio: String[50]; {'Фамилия Имя Отчество'}

Born: byte; {Год рождения, например, 1979}

Faculty: String[4]; {Факультет, например, 'МТФ'}

Group: String[8]; {Группа, например, 'МТ 17-2'}

End;

Ниже приведена универсальная процедура, которая копирует из этого файла в

другой файл данные только о тех студентах, которые имеют заданный год

рождения:

Procedure StudsCopy(nF1, nF2: ShortString; BornYear: byte;

Var Count: Word; Var: Ind: ShortInt);

{nF1 – файл-источник, nF2 – файл-приёмник,

BornYear – требуемый год рождения,

Count – скопировано записей,

Ind – индикатор контроля:

0 – нормально, 1 – было неверное чтение, была неверная запись}

Var

g: tStud;

K, Sz, i,j: Word;

f1, f2: File;

Begin

Count:= 0; {инициализация счетчика}

Ind:=0; {изначально предполагаем нормальный процесс, иначе Ind изменим}

Sz:= SizeOf(g); {размер одной записи}

K:= KdnFileSize(nF1, Sz); {количество записей в файле-источнике}

If (K > 0) then {если в файле-источнике есть записи }

Begin

Assign(f1, nF1); {файл-источник связываем переменной f1}

Reset(f,Sz); {открываем файл-источник с записями размера Sz}

Assign(f2, nF2); {файл-приёмник связываем переменной f2 }

Rewrite(f2,Sz); {создаем новый файл-приёмник под записи размера Sz}

try

For j:=1 to K do

Begin

BlockRead(f1, g, 1, i); {чтение записи}

Case i of

1: {запись прочитана}

if (g.Born = BornYear) then { студент имеет требуемый год рождения}

begin

BlockWrite(f2, g, 1, i); {запись в файл-приёмник}

If (i > 0) then Inc(Count) {если записано правильно}

else

begin Ind:= 1; Break; End; {записано неверно, сразу выход из цикла}

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11