Процедури та функції роботи з файлами - Процедури та функції Pascal - Pascal - Електронна бібліотека
Книга призначена для фахівців з продажу, співробітників відділів обслуговування клієнтів і всім, хто прагне надавати якісний сервіс.
Абсолютні переваги технологій нового покоління – на висоті. Насамперед, простота та легкість – для програмістів, а зручність та комфорт – для користувачів.
Книга Дена Сідерхолма допоможе вам використовувати CSS3 прямо зараз, застосовуючи технології, що з'явилися у нових стандартах.
Процедури та функції роботи з файлами
Procedure AssignFile(var F; FileName : String );
Щоб уникнути конфліктів, AssignFile замінює стандартну процедуру Assign у Delphi. Однак для зворотної сумісності можна використовувати Assign . Процедура AssignFile зіставляє ім'я зовнішнього файла із файловою змінною.
F – файлова змінна будь-якого файлового типу, FileName – вираз типу String або вираз типу PChar, якщо допускається розширений синтаксис. Всі подальші операції з F виконуються із зовнішнім файлом.
Не використовуйте AssignFile з відкритою файловою змінною.
Procedure CloseFile(var F);
Через конфлікт найменування, процедура CloseFile замінює стандартну процедуру Close з Borland Pascal . Використовуйте CloseFile щоб розірвати зв'язок між файловою змінною та зовнішнім дисковим файлом та закрити файл.
F - файлова змінна будь-якого файлового типу, відкрита процедурами Reset, Rewrite або Append. Зовнішній файл пов'язаний з F повністю модифікується і потімзакривається, звільняючи дескриптор файлу для повторного використання.
Директива дозволяє обробляти помилки під час виконання програми, використовуючи обробку виняткових ситуацій.
При вимкненій директиві , ви повинні використовувати IOResult для перевірки помилок введення-виведення.
Function Eof(var F): Boolean;
(типізовані або нетипізовані файли)
Function Eof[(var F: Text)]: Boolean;
Перевіряє, чи є поточна позиція файлу кінцем файлу.
Eof(F) повертає True якщо поточна позиція файлу знаходиться за останнім символом файлу або якщо файл порожній; інакше, Eof (F) повертає False.
Директива дозволяє обробляти помилки під час виконання програми, використовуючи обробку виняткових ситуацій.
При вимкненій директиві , ви повинні використовувати IOResult для перевірки помилок введення-виведення.
Procedure Erase (var F);
Видаляє зовнішній файл, пов'язаний із F.
F – файлова змінна будь-якого файлового типу.
Перед викликом процедури Erase файл необхідно закрити.
Директива дозволяє обробляти помилки під час виконання програми, використовуючи обробку виняткових ситуацій.
При вимкненій директиві , ви повинні використовувати IOResult для перевірки помилок введення-виведення.
Function FileSize (var F): Integer;
Повертає розмір у байтах файлу F. Однак, якщо F - типізований файл, FileSize поверне кількість записів у файлі.
Перед використанням функції FileSize файл повинен бути відкритий.
Якщо файл пустий, FileSize (F) повертає 0.
F – змінна будь-якого файлового типу.
Function FilePos(var F): LongInt;
Повертає поточну позицію файлу всередині файлу.
Перед використаннямФункції FilePos, файл повинен бути відкритий. Функція FilePos не використовується із текстовими файлами.
F - змінна файлового типу, крім типу Text .
Procedure Reset (var F [: File; RecSize: Word]);
Відкриває наявний файл.
F - змінна будь-якого файлового типу, пов'язаного із зовнішнім файлом за допомогою AssignFile. RecSize – необов'язковий вираз, який використовується, якщо F – нетипізований файл. Якщо F - нетипізований файл, RecSize визначає розмір запису, який використовується для передачі даних. Якщо RecSize опущено, за замовчуванням розмір запису дорівнює 128 байт.
Процедура Reset відкриває існуючий зовнішній файл, асоційований із файловою змінною F. Якщо зовнішнього файла з таким ім'ям немає, виникає помилка часу виконання. Якщо файл, пов'язаний з F вже відкритий, він спочатку закривається, а потім знову відкривається. Поточна позиція файлу встановлюється на початок файлу.
Procedure Rewrite (var F: File [; Recsize: Word]);
Створює та відкриває новий файл.
F – змінна будь-якого файлового типу, пов'язаного із зовнішнім файлом з використанням AssignFile.RecSize – необов'язковий вираз, який використовується, якщо F – нетипізований файл. Якщо F - нетипізований файл, RecSize визначає розмір запису, який використовується для передачі даних. Якщо RecSize опущено, за замовчуванням розмір запису дорівнює 128 байт.
Процедура Rewrite створює новий зовнішній файл із ім'ям, пов'язаним з F.
Якщо зовнішній файл з тим самим ім'ям вже існує, він видаляється, і створюється новий порожній файл.
Procedure Seek (var F; N: LongInt);
Переміщує поточну позицію файлу до певного компонента. Ви можете використовувати процедуру лише з відкритими типізованими абонетипізованими файлами.
Поточна позиція файлу F переміщається до номера N. Номер першого компонента файлу – 0.
Інструкція Seek(F, FileSize(F)) переміщує поточну позицію файла до кінця файлу.
Відкриває існуючий текстовий файл для додавання інформації до кінця файлу (дозапису).
Якщо зовнішнього файлу з цим ім'ям немає, відбувається помилка часу виконання.
Якщо файл F вже відкритий, він закривається та знову відкривається. Поточна позиція файлу встановлюється до кінця файлу.
Function Eoln [(var F: Text)]: Boolean;
Перевіряє, чи поточна позиція файлу є кінцем рядка текстового файлу.
Eoln(F) повертає True якщо поточна позиція файлу - в кінці рядка або файлу; інакше Eoln (F) повертає False.
Procedure Read(F, V1 [, V2, . Vn]);
(типізовані та нетипізовані файли)
Procedure Read([var F: Text ;] V1 [, V2, . Vn]);
Для типізованих файлів процедура читає компонент файлу змінну. При кожному зчитуванні поточна позиція файлу просувається до наступного елемента.
Для текстових файлів читається одне або кілька значень одного або декількох змінних.
Зі змінними типу String Read зчитує всі символи аж до наступної мітки кінця рядка (але не включаючи її), або поки функція Eof(F) не прийме значення True . Змінної присвоюється символьний рядок, що вийшов в результаті.
У разі змінної цілого або речового типу процедура очікує надходження послідовності символів, що утворюють число за правилами синтаксису мови Object Pascal. Зчитування припиняється при виявленні першого пробілу, символу табуляції або мітки кінця рядка, або якщо функція Eof(F) приймає значення True . Якщо числовий рядокне відповідає очікуваному формату, відбувається помилка введення-виведення.
Procedure Readln([var F: Text ;] V1 [, V2, . Vn]);
Є розширенням процедури Read та визначено для текстових файлів. Зчитує рядок символів у файлі (включаючи маркер кінця рядка) та переходить до початку наступного рядка. Виклик функції Readln(F) без параметрів призводить до переміщення поточної позиції файлу на початок наступного рядка, якщо вона є, інакше відбувається перехід до кінця файлу.
Function SeekEof[(var F: Text)]: Boolean;
Повертає ознаку кінця файлу і може використовуватись лише для відкритих текстових файлів. Зазвичай використовується для зчитування числових значень текстових файлів.
Function SeekEoln [(var F: Text)]: Boolean;
Повертає ознаку кінця рядка у файлі та може використовуватись лише для відкритих текстових файлів. Зазвичай використовується для зчитування числових значень текстових файлів.
Procedure Write ([var F: Text ;] P1 [, P2, . Pn]);
Записує одну або більше величин текстового файлу.
Кожен параметр запису повинен мати тип Char, один з цілих типів (Byte, ShortInt, Word, LongInt, Cardinal), один з типів з плаваючою комою (Single, Real, Double, Extended, Currency), один з рядкових типів (PChar, AnsiString , ShortString), або одного з логічних типів (Boolean, Bool).
Procedure Write (F, V1, . Vn);
Записує змінну компонент файлу. Змінні V1. Vn повинні бути такого самого типу, що й елементи файлу. При кожному записі змінної поточна позиція у файлі переміщується до наступного елемента.
Procedure Writeln([var F: Text ;] P1 [, P2, . Pn]);
Виконує операцію Write , потім поміщає мітку кінця рядка файл.
ВикликWriteln(F) без параметрів записує у файл маркер кінця рядка.