DELPHI 7

vk.com/club152685050 | vk.com/id446425943

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

Reset (дескриптор_файла);

- открытие или повторное открытие текстового файла в режиме чтения,

Rewrite (дескриптор_файла);

- создание нового файла или открытие существующего файла для перезаписи,

Append (дескриптор_файла);

- открытие существующего файла для

дозаписи.

vk.com/club152685050 | vk.com/id446425943

Пример «привязки» к файлу

AssignFile (F, ‘Test.dat’);

AssignFile (F, ’c:\works\test.dat’);

vk.com/club152685050 | vk.com/id446425943

Чтение из файла

Read (дескриптор_файла, перем1, перем2, ...);

…………………………

Readln (дескриптор_файла, перем1, перем2);

- чтение данных с новой строки.

vk.com/club152685050 | vk.com/id446425943

Чтение из файла

Var myFile: File of TMyFile; A, myData, N5:TMyFile;

…………………

Reset (myFile);

Read (myFile, myData, A);

…………………………

vk.com/club152685050 | vk.com/id446425943

Чтение из файла

Read (myFile, v1);

Read (myFile, v2);

Read (myFile, v3);

Эквивалентно:

Read (myFile, v1, v2, v3);

vk.com/club152685050 | vk.com/id446425943

Чтение из файла

Readln (myFile, v1);

Readln (myFile, v2);

Readln (myFile, v3);

Неэквивалентно:

Readln (myFile, v1, v2, v3);

vk.com/club152685050 | vk.com/id446425943

Запись в файл

Write (дескриптор_файла, выражение:

минимальная_ширина:длина_дробной_части);

Write (myFile, 10:5, 10.47589:6:2);

Write (myFile, ‘Выходные данные’);

Writeln (myFile, A, B:10, C:8:3);

vk.com/club152685050 | vk.com/id446425943

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

CloseFile (дескриптор_файла);

vk.com/club152685050 | vk.com/id446425943

Функции для работы с файлами

Eof( ) - проверяет, находится ли указатель файла в конце или за пределами файла;

EoIn( ) - проверяет, находится ли указатель файла в конце строки;

SeekEof( ) - возвращает True, если до конца

файла остались только символыразделители;

SeekEoIn( ) - возвращает True, если до конца текущей строки остались только символыразделители.

vk.com/club152685050 | vk.com/id446425943

Процедуры для работы с файлами

AssignPrn( ) – присваивает дескриптор текстового файла принтеру;

Erase( ) – удаляет файл;

Flush( ) – очищает буфер текстового файла, открытого для вывода;

SetTextBuf( ) – присваивает текстовому файлу буфер ввода-вывода.