n := FileSize(f_int); n – размер файла- количество записей в нем
WriteLn(‘Размер файла равен ’, n);
ReSet(f_int); ставим указатель на начальную запись
n := FilePos(f_int); n – номер начальной записи в файле
WriteLn(‘Номер начальной записи равен ’, n);
Seek(f_int, 3); ставим указатель на запись с номером3
Read(f_int, n); читаем из файла в переменнуюn текущую запись
WriteLn(‘Запись с номером 3 равна ’, n);
Truncate(f_int); удаляем из файла все записи послетекущей
ReSet(f_int); открываем файл для чтения - ставим указатель
на начальную запись
While Not(EOF(f_int)) Do снова читаем файл и выводим его наэкран
Write(n:5);
Close(f_int); закрываем файл
На экран будет выведено:
Текстовые файлы представляют собой последовательность строк различной длины, каждая из которых заканчивается меткой EOLn – End Of Line – конец строки (последовательность символов #13#10). В конце файла стоит метка EOF – End Of File.
Запись данных в текстовый файл практически не отличается от вывода данных на экран терминала. Чтение же данных из текстового файла имеет свои особенности.
Объявить текстовый файл можно двумя способами:
1. указанием его имени и типа в разделе описания переменных:
Var f_text : Text; объявлен текстовый файлf_text,
f_text – имя логического файла – файловой переменной
Внимание! При описании файла его размер не указывается.
2. указанием его типа в разделе определения типов TYPE и имени – в разделе описания переменных:
Type TFile_text = Text;
Var f_text : TFile_text;
Перед началом работы с файлом необходимо связать имя логического файла (файловую переменную) с физическим файлом на внешнем носителе:
Assign(имя файловой переменной, ‘путь к физическому файлу’);
Assign(f_text,’D:\User\f_text.txt’);
f_text – имя файловой переменной (логического файла),
D:\User\f_text.txt - полный путь к физическому файлу на внешнем носителе: диск D:, директория (папка) User, файл f_text.txt
Внимание! Желательно совпадение имени физического файла и имени файловой переменной; расширение имени текстового файла всегда .txt.
После установления пути к физическому файлу его можно открыть:
а) открытие нового файла для записи в него данных: