Примеры программ на делфи

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

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

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

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

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

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

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

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

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

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

Edit1: TEdit; // дата

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

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

procedure FormActivate(Sender: TObject);

procedure ButtonlClick(Sender: TObject);

procedure FormClose(Sender: TObject;

var Action: TCloseAction); private

DBNAME = ‘a:pogoda. db’;

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

procedure TForm1.FormActivate(Sender: TObject);

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);

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

procedure TForml.Button1Click(Sender: TObject);

if (Length(edit1.text)=0) or (Length(edit2.text)=0)

then ShowMessage(‘Ошибка ввода данных.’

+#13+’Bce поля должны быть заполнены.’)

else writeln(db, editl.text,’ ‘,edit2.text);

// Событие OnClose возникает при закрытии формы

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

CloseFile(db); // закрыть файл БД

Файл базы данных открывает процедура FormActivate, которая обрабатывает событие onActivate. Событие OnActivate возникает в момент активизации формы, поэтому процедура запускается автоматически, при активизации формы приложения. Если операция открытия файла завершается успешно, то в поле Edit1 записывается текущая дата. Информация о текущей дате возвращает функция Date. Для преобразования возвращаемого функцией Date значения (числа типа Double) в удобную для восприятия форму используется функция Dateiostr. После записи даты в поле Editi процедура обработки события onActivate с применением метода setFocus устанавливает курсор в поле ввода температуры. Если в процессе открытия или создания нового файла возникает ошибка, то процедура делает недоступной кнопку Добавить и выводит информационное сообщение.

Процедура TForm1.Button1Click (процедура обработки события onclick) запускается нажатием кнопки Добавить (Button1). В результате введенная информация записывается в базу данных — файл pogoda.db. Перед выполнением записи программа проверяет, все ли поля формы заполнены, и, если не все, то выводит информационное сообщение.

В результате работы процедуры в конец файла pogoda.db будет добавлена строка, содержащая дату (число, месяц, год) и температуру.

В данной программе используется инструкция writein, а не write, для того чтобы данные за каждый день располагались в базе данных на отдельной строке.

Обратите внимание, что список вывода инструкции writein состоит из трех элементов. После вывода в файл даты (Edit1.text) в файл записывается пробел, а затем— температура (edit2.txt). Если температуру записать в файл сразу после даты, то числа, соответствующие году и температуре, сольются в одну последовательность цифр.

Закрывает базу данных процедура TFormi.Formciose, которая обрабатывает событие enclose, возникающее при закрытии формы приложения.

После нескольких запусков программы файл pogoda.db может быть, например, таким:

9.05.2001 10 10.05.2001 12 11.05.2001 10 12.05.2001 7

Вещество и поле не есть что-то отдельное от эфира, также как и человеческое тело не есть что-то отдельное от атомов и молекул его составляющих. Оно и есть эти атомы и молекулы, собранные в определенном порядке. Также и вещество не есть что-то отдельное от элементарных частиц, а оно состоит из них как базовой материи. Также и элементарные частицы состоят из частиц эфира как базовой материи нижнего уровня. Таким образом, всё, что есть во вселенной — это есть эфир. Эфира 100%. Из него состоят элементарные частицы, а из них всё остальное. Подробнее читайте в FAQ по эфирной физике.

Порядок создания приложения:

1. Запускаем Delphi. (См. раздел " Начало работы").

2. Создаем на сервере папку для размещения нового приложения.

3. Сохраняем наш проект в этой папке. (См. раздел "Сохранение проекта").

4. Изменяем форму нашего нового приложения.

Требуемый вид формы показан на рис. 2. На форме не размещены никакие дополнительные компоненты, а только изменены сами свойства формы в соответствии с таблицей 15.

Свойства изменяются в окне Инспектор объектов на вкладке Свойства. Расшифровка свойств: дана в таблице 16.

5. Определяем для объекта Form1 реакцию на два события: OnPaint и OnResize.

Для этого переходим в окне Инспектор объектов на вкладку События, находим в списке событий события OnPaint и OnResize, и дважды щелкаем мышкой напротив каждого из них. Среда программирования Delphi в этом случае автоматически добавит к описанию объекта TForm1 (дочернему экземпляру класса Tform) в Окне кода две заготовки для методов:

procedure FormPaint(Sender: TObject);

procedure FormResize(Sender: TObject);

Событие OnPaint перерисовывает изображение окна приложения. Наступает, когда приходит сообщение Windows о необходимости перерисовать испорченное изображение. Изображение может испортиться из-за временного перекрытия данного окна другим окном того же или постороннего приложения.

Событие OnResize наступает перед изменением размера компонента. В обработчике можно задать новое значение ширины (NewW >

В итоге в окне кода получаем следующую заготовку для модуля формы (Листинг 4):

Листинг 4. Заготовка главного модуля программы построения графика функции.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,