Групу однотипних компонентів можна обробляти як масив.
Наприклад, нехай є форма виду:
Для кнопки напишіть код, який підраховує середнє значення тільки в заповнених полях і відображає результат у полі під кнопкою. Для відокремлення поля з результатом від інших полів задамо у властивості Tag цього поля значення 1.
Для кнопки напишемо код:
procedure TForm1.Button1Click(Sender: TObject);
var i,kol:integer; s:real;
begin
//спочатку кількість і сума рівні 0
kol:=0;
s:=0;
//у циклі проходимо по всіх компонентах
for i:=0 to controlcount-1 do
//якщо поточний компонент текстове поле
if controls[i].classname='TEdit' then
//якщо це не поле результату і поле не порожнє
if (controls[i].tag<>1) and (tedit(controls[i]).text<>'') then
begin
//додаємо його до суми
s:=s+strtofloat(tedit(controls[i]).text);
//збільшуємо кількість полів на 1
kol:=kol+1;
end;
//для видачі результату треба знайти поле із властивістю Tag=1
//у циклі проходимо по всіх компонентах
for i:=0 to controlcount-1 do
//якщо поточний компонент текстове поле
if controls[i].classname='TEdit' then
//якщо це поле результату (tag=1)
if controls[i].tag=1 then
//якщо кількість не 0 (є не пусті поля у масиві)
if kol<>0 then
//у полі результату відображаємо середнє
//і округляємо до 2 знаків
tedit(controls[i]).Text:=floattostr(roundto(s/kol,-2))
//якщо кількість дорівнює 0 (поля у масиві не заповнювалися)
else
//поле результату очищаемо
tedit(controls[i]).Text:='';
end;
Для роботи цього коджу треба підключити модуль Math.
