Реферат: Файлы

Seek ( F , Nom ) ;

где F - любой файл, кроме Text ;

Nom - номер текущей компоненты файла (переменная типа Longint ).

Процедура осуществляет настройку на требуемую компоненту файла, который предварительно был открыт процедурами Rewrite или Reset . Номер текущей компоненты файла можно получить с помощью функции FilePos (Nom := FilePos ( F ); ).

Размер файла в компонентах может быть получен с помощью функции FileSize ( F ).

9 Описание текстовых файлов

Особую роль в обмене информацией с внешними носителями в среде Turbo - Pascal 7.0 играют текстовые файлы, компоненты которых рассматриваются как последовательность символов.

Определение типа

Var CHF : Text ; {это эквивалентно описанию

Var CHF: file of char;}

10 Чтение из текстового файла

Для чтения данных из файла он должен быть предварительно открыт для чтения с помощью процедуры Reset ( CHF ).

Чтение осуществляется с помощью процедур:

Read ( CHF , < список переменных>);

или

Readln ( CHF , <список переменных>);

Процедура Readln по окончании чтения обеспечивает переход к новой строке файла CHF (Readln без параметров обеспечивает только переход на новую строку файла).

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

- целые читаются с текущего символа, пропуская начальные пробелы, до первого символа отличного от цифры (или конца строки/файла);

- вещественные читаются с текущего символа, пропуская начальные пробелы, до символа синтаксически несовместимого с представлением вещественного числа (или конца строки/файла);

- символьные принимают значение текущего символа файла;

- строки читаются с текущего символа до конца строки (файла).

Пример:

Путь к исходному файлу: A :\ File 1. Dat

Содержимоефайла: 36 25+ PASCAL

16.5

Var CHF : Text;

S : real:

I,J : integer;

ST : string;

C : char;