While not Table1.EOF do begin. soz:=soz+Table1[‘OZ’].Value;//накопление суммы

soz:=soz+Table1[‘OZ’].Value; //накопление суммы

n:=n+1; //увеличение счётчика записей

Table1.Next; //переход на след. запись

End;

if (n<>0) then //проверка отсутствия записей

soz:= soz/n; //расчёт среднего

end;

показывает, как вычислить среднюю оценку всех студентов. Для отображения на экране вычисленных данных можно, например, использовать объекты Label (текстовая метка). Свойство Caption объекта Label отвечает за надпись на форме приложения.

Например, если имя объекта Label1, то фрагмент программы

Var

buf: string[50];

buf:="Средняя оценка:”+FloatToStr(soz);

Label1.Caption:= buf;

позволяет отобразить на форме вычисленное значение средней оценки.

Свойство Caption представляет собой данное специализированного типа AnsiString, позволяющего хранить символьные строки в формате отличном от формата хранения в символьном массиве. Для преобразования значения типа символьной строки в значение типа AnsiString используется операция присваивания, справа от которой указывается символьная строка или ее адрес.

Для вывода разного рода списков плавающего размера используется компонента Memo. Добавление, например, фамилии студента в список будет осуществляться с помощью оператора:

Memo1.lines.Add(Table1[‘FAM’]);

Кроме ввода данных в таблицу, как правило, в программу требуется вводить другие исходные данные. Для ввода исходных данных в программу используются объекты Edit. Объект Edit имеет свойство Text, которое является данным типа AnsiString и содержит значение, введенное в поле ввода на форме приложения.

Например, если имя объекта Edit1, то фрагмент программы

Var

soz: real;

n: integer;

Begin

soz:=0;

n:=0;

Table1.First;