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

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

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

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

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

unitpogoda_;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

Type

TForm1 = class(TForm)

Edit1: TEdit; // дата

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

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

Label1: TLabe1;

Label2: TLabe1;

procedureFormActivate(Sender: TObject);

procedureButtonlClick(Sender: TObject);

procedureFormClose(Sender: TObject;

var Action: TCloseAction); private

{ Private declarations } public

{ Public declarations } end;

Var

Form1: TForm1;