3 . Самостоятельная работа
1. Создание графического улучшенного интерфейса.
1. Создайте главное меню с функциями Добавить, Добавить элемент, Удалить, Сохранить, Изменить заголовок.
2. Улучшите графическое представление программы.
Лабораторная работа 3
Рейтинг 0,8 баллов
Тема: Назначение и объявление файла. Вывод в файл. Открытие файла для вывода. Ошибки открытия файла. Чтение данных из файла
Цель работы:
Ознакомиться с функциями и процедурами для работы с файлами. Также научиться создавать текстовые файлы.
Основная методика создания приложения
Задание 1. Создание нового или замещение существующего файла
Создайте папку student на диске С и сохраните ваш проект в эту папку.
Разместите компоненты, так как показано на рисунке 30
Рисунок 30 – Окно будущей программы
Для кнопки Записать наберите следующий программный код в событии OnClik.
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80]; // имя файла
i: integer;
begin
fName := Editl.Text;
AssignFile(f, fName);
Rewrite(f); // открыть для перезаписи
// запись в файл
for i: =0 to Memo1.Lines.Count do // строки нумеруются с нуля
writeln(f, Memo1.Lines[i]);
CloseFile(f); // закрыть файл
MessageDlg('Данные ЗАПИСАНЫ в файл ',mtInformation,[mbOk],0);
end;
4. Протестируйте приложение, запустив его. Проверьте работу кнопки Записать.
5. В Editl введите название создаваемого файла и его месторасположение. Например введите С:\student\text1.txt
6. В Memol введите любой текст.
7. Нажмите кнопку Записать. В случае если данные записаны удачно должно появится сообщение «Данные ЗАПИСАНЫ в файл»
8. Откройте диск С папку student, просмотрите содержимое файла text1.txt
Задание 2. Чтение из файла
Для кнопки Добавить наберите следующий программный код
procedure TForm1.Button2lick(Sender: TObject);
var
f: TextFile; // файл
fName: String[80]; // имя файла
buf: String[80]; // буфер для чтения из файла
begin
fName := Edit1.Text;
AssignFile(f, fName);
Reset(f); // открыть для чтения
if IOResult <> 0 then
begin
MessageDlg('Ошибка доступа к файлу ' + fName, mtError,[mbOk],0);
exit;
end; // чтение из файла
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
Memo1.Lines.Add(buf); // добавить строку в поле Memo1
end;
CloseFile(f); // закрыть файл
end;
Снова протестируйте ваше приложение.
Внесите новые данные и сохраните их в вашем файле.
Файл — это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности практически не ограничено. В первом приближении файл можно рассматривать как массив переменной длины неограниченного размера.
Как и любая структура данных (переменная, массив) программы, файл должен быть объявлен в разделе описания переменных. При объявлении файла указывается тип элементов файла.