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

Печать текста

Открытие файла

Append(F) ‑ открытие расширяемого файла.

Аналогично типизированному файлу используются процедуры AssignFile(F;S), Reset(F), Rewrite(F), Reset(F) (п.1.8.2.1).

Процедуры ввода‑вывода

Read(F,<список ввода>) ‑ читает из открытого файла F в указанные пе­ре­мен­ные из списка ввода. При вводе числовых значений все окружающие пробелы, символы табуляции и маркеры конца строк пропускаются, и вы­де­ленная подстрока преобразуется в тип принимаемого поля ввода, при нарушении формата возникает исключительная ситуация. Ввод логических переменных не предуcмотрен.

ReadLn(F,<список ввода>) ‑ читает из открытого файла F в переменные из списка и переходит на начало следующей строки.

Write(F;VI[,V2]...) ‑ записывает в файл одно или более значений V1,V2,....

Любой элемент списка может иметь форму:

<выражение>[: <минимальная ширина поля>[: <ширина дробной части>]]. Если размер выводимого значения больше минимальной ширины, то значение дополнится слева пробелами, если большую длину, то выводятся все символы без усечения. Если ширина поля не указана, то значения выводятся плотно без всяких разделителей.

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

Закрытие файла осуществляется процедурой CloseFile(F). Дополнительные процедуры

AssignPrn(F) ‑ информация выводится на принтер. Файл открывается процедурой Rewrite.

Eoln(F):Boolean -возвращает True при достижении конца строки файла.

Flush(F) ‑ выталкивает буфер файла в файл F и очищает буфер.

SeekEof(F):Boolean ‑ пропускает все пробелы, символы табуляции и маркеры конца строк и возвращает True при достижении конца файла.

SeekEoln(F):Boolean ‑ возвращает True при достижении конца строки файла, пропуская пробелы и символы табуляции.

SetTextBuf(F;Var B[;N:integer]) ‑ связывает буфер ввода/вывода B размера N с текстовым файлом F.

Пример ввода чисел из текстового файла ’Fact.txt’:

Var F:TextFile; M: Array [1..100] Of Real;I:Integer; //переменные

Begin AssignFile(F,’Fact.txt’); Reset(F); I:=1;

While Not Eof(F) and (I<=100) Do Begin Read(F,M[I]);I:=I+1; End;

CloseFile(F);...

End; //закрытие файла и окончание процедуры

Для вывода текстовой информации можно использовать стандарт­ную процедуру AssignPrn (модуль Printers) (п. 1.8.2.3), которая связывает файловую переменную типа TextFile с текущим принтером.

Пример вывода на печать текста «Иванов»:

Procedure TForm1.Button1Click(Sender: TObject); Var Print: TextFile;

Begin AssignPrn(Print); Rewrite(Print); Writeln(Print,'Иванов');

System.CloseFile(Print); End;

Нетипизированные файлы представляют собой непрерывную после­довательность байтов. Данные записываются и считываются побайтно.

Дата добавления: 2014-12-08