Среднее арифметическое в DBGrid

[Марк Охман]

на форме db grid (на нем таблица из аксесовской БД через ADOConnection) как среднее арифметическое значений всех полей одной сторки с 3 и до последнего? и так со всеми строками (записями).

[_SERGEYX_]

Навскидку...

var aAVG: double;

aAVG:=0;
for i:=2 to Table.FieldCount-1 do
aAVG:= aAVG + Table.Fields[i].asFloat;

aAVG:= aAVG / (Table.FieldCount - 3);

[mihali4]

Логичнее внести этот обработчик в событие OnCalcFields...

[Марк Охман]

а куда этот код поместить?

Извините, но не совсем понял что вы имеете ввиду.. Поподробней расскажите пожалуйста. Что за CalcFields?

Я думаю что не рационально закрывать и окрывать ADOQuery для вычисления среднеарифметического каждой записи.

Нужно чтобы когда в любой ячейке вносятся изменения сразу менялось и среднее арифметическое в главной ячейке. Подскажите, как решить проблему?

18:14

а что если добавить какойнибудь обработчик в Events у DBGrid на OnUpdateData (это во вкладке DataSet)? нужно просто чтобы он, когда в какойнибудь строчке меняют значение одной из ячеек высчитывал новое значение средне арифметического и записывал его в главную ячейку. подскажите кто-нибудь, как его сделать, этот обработчик? Пожалуйста!!!

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[_SERGEYX_]

Что за CalcFields?

Нужно создать еще одно поле, у которого
FieldKind:= fkCalculated;
Т.е. это виртуальное вычисляемое поле.
Обрабатывать нужно событие OnCalcFields.

Добавлю.
Про все это написано в штатном хэлпе, пользоваться которым для некоторых сродни пытке на дыбе.
Модератор.

[Марк Охман]

Я сделал вот так (сделал именно так, потому что просто сидел и логиески размышлял и пришла вот такая идея, а то что было сказанновыше, я , если честно не совсем понял....)

 procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
sum:=0;
num:='';
t:='0123456789';
AdoQuery1.First;
repeat
   begin
    for i:=4 to DBGrid1.Columns.Count do
      if ansipos(' ТК',DBGrid1.Fields[i].AsString)<>0 then
         begin
         s:=DBGrid1.Fields[i].AsString;
         for j:=1 to length(s) do
               if pos(s[j],t)<>0 then
                    num:=num+s[j];
         sum:=sum+strtoint(num);
         end;
     AdoQuery1.FieldByName('ТК').Text:=floattostr((sum)/(DBGrid1.Columns.Count-4));
     AdoQuery1.Next;
     end until AdoQuery1.Eof;
end;

В ячейках информация вида 100 ТК; 84 ТК; 90 ТК;
На мой взгляд все правильно, но часто мнение мое и кампилятора расходятся)))
Он говорит что Stack Overflow. Все переменные обявлены в главном var.
Почему такая ошибка?
Может надо увеличитб stack? до скольки?

[_SERGEYX_]

Лови пример, как работает калькулируемое поле.

[Марк Охман]

а где указывается поле в которое скалькулировать??

[_SERGEYX_]

Руками создается.
Правый клик по AdoQuery1 > Fields Editor.
Правый клик по редактору > New Field.
Name: произвольно
Type: float
Field Type: Calculated
Жмем ОК.

[Марк Охман]

всетаки у меня не получается((( прошу, простите за тупость,но не получатся.
в данном примере показано как калькулировать поля в ADOTable, а у меня ADOQuery(и я не могу это опустить потому что очень большая часть программы на этом стоит: запросы, сортировки и т.д.) Как сделать калькуляцию для ADoQuery?
я использовал принцип калькуляции из примера в AdoQuery-->Events-->OnCalcFields.

sum:=0;
num:='';
t:='0123456789';
  aAVG := 0;
  for i := 4 to ADOQuery1.FieldCount-1 do
    begin
   if ansipos(' ТК',DBGrid1.Fields[i].AsString)<>0 then
         begin
         s:=DBGrid1.Fields[i].AsString;
            for j:=1 to length(s) do
               if ansipos(s[j],t)<>0 then
               num:=num+s[j];
         sum:=sum+strtoint(num);
         num:='';
         end;
    end;

 aAVG := sum / (ADOQuery1.FieldCount - 4);

  AdoQuery1.FieldByName('ТК').Calculated:=true;
  AdoQuery1.FieldByName('ТК').AsFloat:=Round(aAVG);
  end;

Результат - ничего. Абсолютно никакой реакции.
В ячейках, из которых берется информация для калькуляции, иформация в виде: 100 ТК; 85 РК; 90 ИК;
т.е. в столбец с именем ТК заносится среднее арифметическое всех ячеек в которых есть "ТК".
Очень прошу, подскажите что нитак.