Любой файл имеет три характерные особенности. Во-первых, у него есть имя, что дает возможность программе работать одновременно с несколькими файлами. Во-вторых, он содержит компоненты одного типа. Типом компонентов может быть любой тип Паскаля, кроме файлов. Иными словами, нельзя создать «файл файлов».
В-третьих, длина вновь создаваемого файла никак не оговаривается при его объявлении и ограничивается только емкостью устройств внешней памяти.
Файловый тип или переменную файлового типа в Паскале можно задать одним из трех способов:
Здесь – имя файлового типа (правильный идентификатор); File, of – зарезервированные слова (файл, из); – любой тип Паскаля, кроме файлов.
Пример описания файлового типа в Паскале
Text80= file of string[80];
F1: file of char;
F5: file of Product;
В зависимости от способа объявления можно выделить три вида файлов Паскаля:
— типизированные файлы Паскаля(задаются предложением file of..);
— текстовые файлы Паскаля(определяются типом text);
Работа с файлами Pascal
— нетипизированные файлы Паскаля(определяются типом file).
Основные процедуры и функции для работы с файлами
- До начала работы с файлами в Паскале необходимо установить связь между файловой переменной и именем физического дискового файла:
- После окончания работы с файлами на Паскале, они должны быть закрыты.
- Подготовка к записи в файл Паскаля
- Запись в файл Паскаля
- Подготовка файла к чтению Паскаля
- Чтение из файла в Паскале
- Функция определения достижения конца файла в Паскале
- Изменение имени файла в Паскале
- Уничтожение файла в Паскале
- Уничтожение части файла от текущей позиции указателя до конца в Паскале
- Файл Паскаля может быть открыт для добавления записей в конец файла
Источник: studfile.net
Текстовые файлы в языке Паскаль, их особенности. Основные операции с текстовыми файлами. Ввод их файла, вывод в файл.
Текстовый файл представляет собой совокупность символов, разделенных на строки, причем в конце каждой строки стоит символ конца строки. Бытовые примеры текстовых файлов просты. Если файл можно вывести на экран в текстовом режиме и прочитать его, то это — текстовый файл. Для работы с текстовыми файлами необходимо определить файловую переменную:
type textfile = text; var f: textfile;
Заметим, что слово text не является зарезервированным: словом, а является идентификатором стандартного типа, наряду с real, integer и т. п.
Работа с текстовыми файлами организуется построчно, причем чтение и запись являются строго последовательными.
Текстовые файлы в Турбо-Паскале — это вовсе не аналоги файлов типа filе of char. Знак равенства между этими типами можно поставить лишь со значительными оговорками.
Работа с Файлами в Pascal
Для текстовых файлов применимы те же операции инициализации, открытия и закрытия, что и для обычных файлов:
— процедура assign (f, namе) — задает связь файловой переменной с конкретным файлом на диске,
— процедура reset (f) — открывает текстовый файл для последовательного чтения из него,
— процедура rewrite (f) — открывает текстовый файл для записи в него,
— процедура close (f) — закрывает файл,
— функция eof (f) — определяет конец файла.
Следует помнить, что после открытия файла можно работать только в одном режиме: либо только читать из него, либо только писать в него. При изменении режима работы с файлом необходимо заново его открыть, используя нужную процедуру. Иначе говоря, нельзя для одного и того же текстового файла одновременно производить операции ввода и вывода.
— процедура арреnd (f) — служит для специального открытия фала для записи. Она применима только к уже существующим физическим файлам и открывает их для дозаписи, т. е. файл не стирается, как при вызове rewrite, а подготавливается к записи элемента в конец файла. Если append применяется к несуществующему файлу, то возникает ошибка времени счета. Новый файл может быть создан только процедурой rewrite.
После открытия файла процедурой арреnd запись в него будет происходить с того места, где находится признак конца файла (код 26). Вообще говоря, процедура арреnd, кромe способа открытия файла (с конца), ничем не отличается от процедуры rewrite.
— функция eoln (f) : boolean — анализирует текущее положение в текстовом файле f открытом для чтения, Расшифровка этой функции говорит сама за сeбя: «End Of — Line» .- конец строки. Eoln возвращает значение true, если следующей операцией будет прочитан признак конца строки (символ #13) или конца файла (символ #26) и false во всех прочих случаях. Функция как бы предчувствует результат предстоящего чтения и анализирует его. Необходимость в eoln (f) возникает всякий pа:з, когда заранее не известно, где встретится конец строки.
Cуществует разновидность функции eoln без параметров. В этом случае считается, что действие ее относится к стандартному файлу Inрut, т.е. вводу с клавиатуры.
Операции ввода — вывода
Ввод и вывод числовой и текстовой информации в Турбо-Паскале осуществляется
Ввод — Read (f , Х) или Read (f , Xl, Х2, . Хп) и
Rеаdln (f , Х) или ReadLn ( f, Xl, Х2, . Хп );
Вывод — Write (f , Х) или Write (f , Хl, Х2, . Хп) и
Wгitеln ( f , X) или WriteLn ( f , Х1, Х2, . Хп).
Если в операторе ввода-вывода первым параметром стоит логическое имя файла, то это означает, что поток данных будет приниматься (Read) или направляться (Write) на конкретное физическое устройство компьютера, связанное в данный момент с логическим именем этого файла. Если файловая переменная отсутствует, то ввод осуществляется с клавиатуры, а вывод — на дисплей.
В текстовом файле информация хранится в виде символов, поэтому при выводе значений целого и вещественного типа автоматически происходит перекодирование информации в двоичный формат. Отдельные числа в текстовом файле должны отделяться пробелами.
Операторы write и writwln выводят значение Х или список значений Х1, Х2 . Хn в текстовый файл f. Значения могут иметь лишь целый, вещественный, логический, символьный и строковый типы, а также производные от них. Всевозможные структуры (записи, массивы) должны выводиться по их полям или элементам. Множества, указатели (Pointer), файловые переменные также не могут быть выведены без предварительного их преобразования в выводимые составляющие.
Оператор WriteLn или WriteLn (f), где f – имя логического файла, данный без списка вывода, создает пустую строку, содержащую один только признак конца строки.
В Турбо-Паскале при выводе информации в текстовый файл по умолчанию отводится количество позиций, равное размеру этой информации. Так, например, при выводе символа отводится одна позиция, при выводе строки — число позиций, равное длине строки, при выводе целого числа — число позиций, равное числу значащих цифр плюс одна позиция под знак, если число отрицательное. Это необходимо учитывать при выводе последовательных элементов информации (например, несколько целых чисел) и предусматривать меры, чтобы отдельные элементы информации не сливались друг с другом: вывод разделяющих пробелов, разнесение информации по разным строкам и т. д. исключение составляют вещественные числа — под них выделяются 17 позиций, и при выводе они выравниваются по правому краю выделенного поля.
Функции в языке Паскаль. Описание . Описание (заголовок и тело функции. Возвращаемое значение. Формальные и фктические параметры. Локальные и глобальные переменные.
Стандартные функции.
Функции. Описание (заголовок и тело) функции. Вызов функции. Формальные и фактические параметры. Стандартные функции.
при использовании функции должно быть получено только одно значение простого типа.
Function имя функции (формальные параметры) : тип результата ;
Function d (формальные параметры) : real ;
(раздел описания локальных переменных)
Источник: studfile.net
Создание файла, добавление записей в файл и ввод из файла в среде Pascal
Ульяновский государственный технический университет
Институт авиационных технологий и управления
Программирование операций с файлами
в средах Turbo Pascal и DELPHI 7.0
Методические указания
Ульяновск 2004
УДК 681.3:519.68(076)
Программирование операций с файлами в средах Turbo Pascal и Delphi 7.0.
Урок 6. Методические указания. Ю.Н. Антонов. УлГТУ, 2004.
Настоящее учебное пособие предназначено для учащихся школ и студентов ВУЗов изучающих программирование.
Работа подготовлена на кафедре “Экономика, управление и
информатика” института авиационных технологий и управления ИАТУ.
Табл. 1. Библиогр.3 назв.
Рецензент — зав. кафедрой “Вычислительной техники” УлГТУ
профессор, д.т.н. Соснин П.И.
Ó Ульяновский государственный
технический университет, 2002
ОГЛАВЛЕНИЕ
ПРЕДИСЛОВИЕ . . . . . . . . . . . . . . . . . . . . . . 4
1. ИСПОЛЬЗУЕМЫЕ ПРОЦЕДУРЫ И КОМПОНЕНТЫ. . . . . 5
2. ГЛАВНОЕ МЕНЮ ПРИЛОЖЕНИЯ. . . . . . . . . . . . . 6
2.1. Общие сведения. . . . . . . . . . . . . . . . . . . 5
4. ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ. . . . . . 6
5. КОНТРОЛЬНЫЕ ВОПРОСЫ . . . . . . . . . . . . . . . 7
6. СПРАВОЧНИК ПО ПРОЦЕДУРАМ И ФУНКЦИЯМ . . . . . 7
7. СООБЩЕНИЯ . . . . . . . . . . . . . . . . . . . . . . 9
Литература . . . . . . . . . . . . . . . . . . . . . . . 9
Вывод в файл. Ввод из файла
Темы практических и лабораторных работ:
2 создание файла в среде Pascal
2 добавление записей в файл в среде Pascal
2 ввод из файла в среде Pascal
2 вывод в файл и ввод из файла в среде Delphi
2 копирование, переименование и удаление файлов
2 создание справочной системы
Для среды Pascal 6
Для среды Delphi 7
2.1. Вывод в ФАЙл. ВВОД ИЗ файла.
Задача 2.1.1. Создать на языке Pascal тестовый файл со списком студентов на диске.
1. Программа открывает файл в режиме создания нового файла и записывает в него 5 строк.
Program Prog2_1_1;
uses WinCrt;
for i:=l to 5 do
Writeln( ‘Вывод в файл’, st, ‘выполнен’);
Окно решения задачи 2.1.1.
2. Для просмотра содержимого файла необходимо загрузить любой файловый менеджер, найти нужный файл и с помощью клавиши F3
убедиться в правильности записи. В результате выполнения программы на диске появляется файл test12.txt с данными:
 |
Окно просмотра файла c:test12.txt с помощью программы
Задача 2.1.2. Добавить в ранее созданный текстовый файл 3 записи.
1. Программа открывает файл в режиме создания нового файла и добавляет в него 3 строк.
Program Prog9_1_2;
uses WinCrt;
for i:=6 to 8 do
Writeln( ‘В файл’, st, ‘ добавлены 3 записи’);
 |
Окно решения задачи 2.1.2.
 |
2. Для просмотра содержимого файла необходимо загрузить любой файловый менеджер, найти нужный файл и с помощью клавиши F3 просмотреть его. В окне просмотра будут представлены следующие данные, хранящиеся в файле test12.txt:
Окно просмотра файла c:test12.txt открытое с помощью программы
Задача 2.1.3. Программа вводит данные из файла и отображает их на экране.
Program prog2_1_3;
Uses WinCrt;
write(‘Введите правильно имя файла ‘);
if res<>O then
write(‘ОШИБКА: файл ‘,st,’ не найден’);
writeln(‘ или диск не готов.’);
until (res=0) OR (otv=’Д’) OR (otv=’д’);
if res<>0 then goto konec;
while NOT EOF(f) do
writeln(‘Работа программы завершена’);
Результат работы программы 2.1.3.
Задача 2.1.4. Решить задачу 2.1.3. в Delphi
1. Открыть новое приложение с помощью команды File | New Application.
 |
2. На форме Form1 разместите компоненты в соответствии с макетом задачи.
Макет задачи 2.1.4.
Установите нужные значения высоты и ширины формы. Свойство Name, определяющее имя формы, используется в программе для управления формой и его нельзя не изменять.
3. Свойству Caption метки Label1 задайте значение » Ф.И.О.». Перейдите в свойство Font, щелкните по кнопке с тремя точками и в появившемся окне измените размер шрифта с 8 на 10. Нажмем ОК.
Для метки Label2 установите свойство Caption Имя файла, для Label3 установим свойство Caption равное пустой строке.
5. Для компонентов Edit1 установим значение свойства Text равным пустой строке.
6. Кнопкам Button1, Button2, Button3 и Button4 установите свойство Caption равным «Ввод», «Запись» , «Добавить» и «Чтение» соответственно.
7. Два раза щелкните по кнопке Ввод и для обработчика события OnClick вставьте строки:
8. Нажмите клавишу F12 и вернитесь в форму. Два раза щелкните кнопку Запись и в обработчик события OnClick вставьте строки:
if st=» then begin
label4.Caption:=’Введите имя файла’;
for k1:=1 to Memo1.Lines.Count-1 do
writeln (f,k1:2,’ ‘, Memo1.Lines[k1]);
9. Нажмите клавишу F12 и вернитесь в форму. Два раза щелкните кнопку Добавить и в обработчик события OnClick вставьте строки:
writeln (f,k1:2,’ ‘, edit1.text);
10. Нажмите клавишу F12 и вернитесь в форму. Два раза щелкните кнопку Чтение и в обработчик события OnClick вставьте строки:
if res<>0 then
Label4.Caption:=’ОШИБКА: файл ‘+st+’ не найден’;
until res=0 ;
while NOT EOF(f) do
11.Создайте процедуру обработки события Form1Create, которое происходит в момент создания формы (форма создается автоматически при запуске программы). Для создания этой процедуры надо 2 раза щелкнуть в любом месте формы, свободном от объектов.
Эта процедура используется для инициализации переменных программы(присвоения начальных значений).
procedure TForm1.FormCreate(Sender: TObject);
12. Поскольку процедуры в программе используют общие данные,
то их описание следует разместить в основном модуле формы
Похожие материалы
- Turbo Pascal for Windows: Учебное пособие. Часть 1. Программирование операций с простыми типами данных и строками
- Структурированные типы данных
- Функции, процедуры и модули. Структуризация программ. Области действия имен
Источник: vunivere.ru