While not Table1.EOF do begin. /* проверка совпадения поля FAM и текста в Edit1*/

/* проверка совпадения поля FAM и текста в Edit1*/

if (Table1[‘FAM’] = Editl.Text) then begin

soz:=soz+Table1[‘OZ’];

n:=n+1;

end;

Table1.Next;

End;

If (n<>0) then soz:=soz/n;

End;

позволяет рассчитать оценку не всех студен­тов, а конкретного студента, фамилия которого введена в поле ввода объекта Edit1.

Ряд методов в Borland Delphi специально предусмотрен для преобразования типов:

FloatToStr() - преобразование вещественного числа в строку;

IntToStr() - преобразование целого числа в строку;

StrToFloat() - преобразование строки в вещественное число;

StrToInt() - преобразование строки в целоечисло.

Как правило, программные модули выполняются в резуль­тате определенных действий пользователя. Например, фрагмент программы по расчёту и выводу средней оценки может выпол­няться при нажатии кнопки «Расчет». Событие Click (одинар­ное нажатие) объекта Button (кнопка) позволяет определить функцию, выполняемую при нажатии на кнопку. За надпись на кнопке отвечает свойство Caption.

Заголовок функции генерируется автоматическипри выбо­ре в закладке Events инспектора объектов соответствующего со­бытия и двойном щелчке напротив, сама функция инкапсулирует­ся в класс Form (форма) - основной класс приложения. В Borland Delphi такие функции называются обработчиками событий, т. к. они содержат программный код, выполняющийся при насту­плении соответствующего события этой компоненты. Например, если на форме с именем Form1 разместить ком­поненту Button с именем Button1 и создать обработчик события Click для компоненты Button1, в редакторе кода в файле Unit1.pas будет создана пустая функция, которая должна содер­жать код, выполняемый, если произойдёт событие Click.

procedure TForm1.Button1Click(Sender: TObject);

Begin

//код, выполняющийся при наступлении события OnClick //например, расчёт средней оценки студентов

end;

а в заголовочном файле unit Unit1 в шаблоне класса TForm1 будет объявлена функция обработчика события Click.

procedure Button1Click(Sender: TObject);

Приведём вид формы приложения (рис. 9) примера работы с таблицей stud.dbf, расчёта средней оценки студента, фамилия которого вво­дится в поле ввода и описание компонент приложения с по­яснением настройки свойств и событий (табл. 1).

Рис. 1. Внешний вид формы приложения

Таблица 1. Свойства и события компонент приложения

Компонент	Cвойство	Значение
Table	Name	Table1
TableName	stud.dbf
DataSource	Name	DataSource1
DataSet	Table1
DBGrid	Name	DBGrid1
DataSource	DataSource1
DBNavigator	Name	DBNavigator1
DataSource	DataSource1
ShowHint	TRUE (показывает подсказки к кноп­кам навигатора)
Button	Name	Button1
	Caption	"Расчёт средней оценки студентов"
Label	Name	Label1
	Caption	Определяется в обработчике события OnClick компоненты Button1
Edit	Name	Edit1
	Text	Определяется пользователем
Компонент	Cобытие	Значение
Button	OnClick	Одинарное нажатие на кнопку

На рис. 2 показан вид работающего Windows-приложения после отладки и компиляции проекта, запускаприложения, ввода в поле ввода фамилии Петров и нажатия кнопки "Расчёт средней оценки".

Рис. 2. Внешний вид работающего приложения