Снова Арифметика в Базе данных access

[kzmd]

Всем доброго времени суток
У меня по нажатию кнопки база считает значение выделенных ЧекБоксом значечий из базы ...
sum:=0;
if CheckBox1.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[2].AsInteger;
if CheckBox2.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[3].AsInteger;
if CheckBox3.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[4].AsInteger;
ShowMessage( IntToStr(sum) );

так до 30 .

скажем результат чекбокса 1+чекбокса2+чекбокса3=18
А мне нужно что бы это значение sum потом делилось на количество выбранных чекбоксов ??? т.е. 18:3=6 и вот этот результат по нажатию выводился в мессадж ???
или чекбокс2+чекбокс3+чекбокс5+чекбокс1 =54делённое на количество выбранных чекбоксов т.е. 54:4=13.5 ...
огромное спасибо всем кто откликнется !!!!

[maladoy]

заведи переменную счетчик и при выборе чекбокса увеличивай на 1 а потом дели на нее сумму т.е.

if CheckBox1.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fields[2].AsInteger; i:=i+1;end;...........showmessage(floattostr(sum/i));

[kzmd]

procedure TForm1.Button1Click(Sender: TObject);
begin

sum:=0;
if CheckBox1.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[2].AsInteger; i:=i+1;end;
if CheckBox2.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[3].AsInteger; i:=i+1;end;
if CheckBox3.Checked then begin sum:=sum+DataModule2.ADOQuery2.Fiel ds[4].AsInteger; i:=i+1;end;
showmessage(floattostr(sum/i));


end;
Большое спасибо ,

маленький нюансик ,я кнопку жму а он значеие всё меньше выдаёт 2+2+2=6/3 т.е. 2 потом жму кнопку 1 потом 0.5 ?

[Mugger]

начало поменяй...

i:=0;
sum:=0;
if....

[mihali4]

Да вы что? Там же

так до 30

И что, 30 строк лепить "ифов"?
Давайте уж примерно так:

var i,cnt: integer;
    sum: currency;
    cmp: TComponent;
begin
cnt:=0;
sum:=cnt;
for i:=1 to 55 (хоть миллион :)) do
begin
cmp:=FindComponent('CheckBox'+IntToStr(i));
in cmp=nil then
break;
if (cmp as TCheckBox).Checked then
begin
sum:=sum+DataModule2.ADOQuery2.Fields[i+1].AsInteger;
cnt:=cnt+1;
end;
end;
if cnt>0 then
ShowMessage(FloatToStr(sum/cnt));
end;

[kzmd]

спс,большое очень помогли
Тогда у меня такой щё вопрос ,showmessage(floattostr(sum/i)); у меня выводиться .
Вот только надо его поле внести что бы потом по значениям график построить ..Создавал в ассеsse 30 числовых полей где а1,а2,и.т.д значения потом там же делал поля короче с 60-ти полями меня access послал ..
Решил др. таблицу сделать где и буду их складывать ???? есть комментарии как ещё можно точки под ДВгрид вывести ?

[maladoy]

в стринггрид выводи

[kzmd]

mihali4 Код замечательный, только кодга ставишь на чекбокс1+чекбокс2=поля где у меня Фамилия стоит +дата рождения ..приходиться первое 5-тым ставить

[kzmd]

maladoy Можеш поподробнее инструкцию выдать .

[mihali4]

Сообщение от kzmd

mihali4 Код замечательный, только кодга ставишь на чекбокс1+чекбокс2=поля где у меня Фамилия стоит +дата рождения ..приходиться первое 5-тым ставить

А это вам нужно просто установить правильное соответствие между номером чекбокса и номером поля в таблице...
Вы же указали исходно:

if CheckBox1.Checked then sum:=sum+DataModule2.ADOQuery2.Fiel ds[2].AsInteger;

Я вам так и предложил - 1-ый чекбокс = 2-му полю, 2-ой = 3-ему и так далее...