Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
Write(имя файловой переменной, список записываемых пере-
менных); 
5. Закрыть файл с помощью процедуры
 
Close(имя файловой переменной); 
Если файл не закрыть, данные файла будут потеряны. 
Дополнение типизированного файла новыми данными 
 
Для этого необходимо выполнить следующие действия: 
1. Описать файловый тип.
 
Type имя файлового типа = File of тип элементов файла; 
Var имя файловой переменной : имя файлового типа; 
2. Установить связь между файловой переменной и файлом данных.
 
Assign (имя файловой переменной, ‘имя диска: путь к имени 
файла данных на диске‘); 
Открыть уже созданный файл для записи процедурой
  
 
Reset(имя файловой переменной); 
Эта процедура устанавливает указатель на первый элемент ранее 
созданного файла данных и ничего не стирает. 
3. Установить указатель файла за нужным элементом файла про-
цедурой
 
Seek(имя файловой переменной, номер элемента);
Процедура Seek может иметь следующие формы: 

---

174 
 а) 
Seek(имя файловой переменной, FileSize(имя файловой пе-
ременной)); – установка указателя непосредственно за последним 
элементом файла; 
 б) 
Seek(имя файловой переменной, FilePose(имя файловой 
переменной)+1); – пропуск одного текущего элемента файла;
 с) 
Seek (имя файловой переменной, 0); – установка указателя 
на начало файла. 
4. Записать новые данные в файл процедурой: 
Write(имя файловой переменной, список записываемых пере-
менных); 
5. Закрыть файл процедурой:
 
Close(имя файловой переменной); 
Использование данных из типизированного файла 
Чтобы прочитать информацию из файла данных, необходимо 
выполнить следующие пункты: 
1. Описать файловую переменную