Разработка программы с записью данных в файл

Лабораторная работа 9

Тема: разработка программы с записью данных в файл.

Цель: научиться разрабатывать приложение, которое будет записывать данные в файл.

Ход выполнения работы:

Задание:  разработать программу, которая будет вести простую базу данных. При ее запуске на экране должно появиться окно, в поля которого пользователь сможет ввести дату и температуру воздуха.

Выполнение задания:

Листинг программы:

const

DBNAME = 'h:\pogoda. db';

var

db: TextFile;

procedure TForm1.FormActivate(Sender: TObject);

begin

AssignFile(db, DBNAME); {$I-}

Append(db);

if IOResult = 0 then

begin

Edit1.Text := DateToStr(Date);

Edit2.SetFocus;

end

else

begin

Rewrite(db);

if IOResult <> 0 then

begin

Edit1.Enabled := False;

Edit2.Enabled := False;

Button1.Enabled := False;

ShowMessage('Ошибка создания ' + DBNAME);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if (Length(Edit1.Text) = 0) or (Length(Edit2.Text) = 0) then

ShowMessage('Ошибка ввода данных.' + #13 +

'Bce поля должны быть заполнены.')

else

writeln(db, Edit1.Text, ' ', Edit2.Text);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseFile(db);

end;

Данная программа состоит из двух процедур: FormActivate, Button1Click и FormClose. Процедура FormActivate запускается сразу же после запуска программы. Процедура Button1Click запускается по нажатию кнопки Button1. Процедура FormClose запускается при закрытии окна программы, она завершает работу с файлом базы данных, то есть закрывает его.

Блок-схемы процедур FormActivate, Button1Click и FormClose представлены на рисунках 9.1, 9.2 и 9.3 соответственно.

Рисунок 9.1 – Блок-схема процедуры FormActivate

Рисунок 9.2 – Блок-схема процедуры Button1Click

Рисунок 9.3 – Блок-схема процедуры FormClose

Выполнение программы представлено на рисунке 9.4.

Рисунок 9.4 – Выполнение программы