Else begin

End

Begin

Begin

Const

Implementation

Var

Type

Uses

Interface

Листинг 22. Простая база данных (запись в файл)

Пример программы

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

Перед завершением работы программа должна закрыть все открытые файлы. Это делается вызовом процедуры close. Процедура close имеет один параметр — имя файловой переменной. Пример использования процедуры:

Close(f).

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

Рис. 73. Диалоговое окно программы База данных "Погода"

Дата вводится в поле Edit1, температура — в поле Edit2. Текст программы приведен в листинге 22.

unit pogoda_;

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

TForm1 = class(TForm)

Edit1: TEdit; // дата

Edit2: TEdit; // температура

Button1: TButton; // кнопка Добавить

Label1: TLabe1;

Label2: TLabe1;

procedure FormActivate(Sender: TObject);

procedure ButtonlClick(Sender: TObject);

procedure FormClose(Sender: TObject;

var Action: TCloseAction); private

{ Private declarations } public

{ Public declarations } end;

Form1: TForm1;

{$R *.dfm}

DBNAME = 'a:\pogoda. db';

var

db: TextFile; // файл — база данных

procedure TForm1.FormActivate(Sender: TObject);

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

Append(db); if IOResult = 0 then

Edit1.Text:= DateToStr(Date); // получить текущую дату

Edit2.SetFocus; // курсор в поле Edit2

Rewrite(db); if IOResult <> 0 then begin

// сделать недоступными поля ввода // и командную кнопку

Edit1.Enabled:= False; Edit2.Enabled:= False;

Buttonl.Enabled:= False; ShowMessage('Ошибка создания '+DBNAME);

end;

end;

end;

// щелчок на кнопке Добавить

procedure TForml.Button1Click(Sender: TObject);

Дата добавления: 2014-12-25