Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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

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

Closefile(f).

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

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

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

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

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

unit pogoda_;

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;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

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

private { Private declarations }

public { Public declarations }

end;

var Form1: TForm1;

Implementation

{$R *.dfm}

const DBNAME = 'a:\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; // курсор в поле Edit2

End

Else begin

Rewrite(db);