DBGrid HELP

[crit]

мне же надо чтобы средний рез-т отображался в одно ячейки ,а он мне сразу эти цифры в каждой

[crit]

в общем посчитало правильно,но засунуло во все ячейки)

[crit]

получилась такая цифра,а как выделить целую часть,например получилось 44545,66666.. тоесть 4.

[crit]

сделал так =)
OraQuery1.SQL.Add('select A ,('+inttostr(summa)+'/'+inttostr(REc)+'/'+inttostr(100000)+') as Summa ');
получилось 4,5656....... как отбросить все после запятой??

[ArtInt]

Извиняюсь, не первый раз уже забываю прописывать Next. Надо его вставить, тогда будет работать.

 REc:=AdoQuery1.RecordCount;
  AdoQuery1.DisableControls;
AdoQuery1.First;
 for I := 0 to AdoQuery1.RecordCount- 1 do    // Iterate
 begin
  summa:=summa+AdoQuery1.fieldbyname('kod').AsInteger;
  AdoQuery1.Next;
 end;    // for
 AdoQuery1.EnableControls;

А чтобы было целое число попробуй round округление

  AdoQuery1.SQL.Add('select kod, caption, (round('+inttostr(summa)+'/'+inttostr(REc)+')) as Summa ');

есть еще trunc отcечение дробной части, но почему-то не получилось

[crit]

но забивает всеравно во все ячейки(

[ArtInt]

А зачем в одной ячейке, тогда не легче было сделать просто поле Edit внизу c надписью Средний результат? И обновлять его когда вносится новый результат. Все также по циклу выясняется сумма и делится на количество записей. И потом результат присваивается Edit.
Если результат выводится в одну ячейку, зачем тогда заводить новое поле?

[crit]

хм..не красиво получица) ну да ладно, как в едит занести?подскажи плиз

[ArtInt]

Сначала вычислили сумму:

  AdoQuery1.DisableControls;
AdoQuery1.First;
 for I := 0 to AdoQuery1.RecordCount- 1 do    // Iterate
 begin
  summa:=summa+AdoQuery1.fieldbyname('kod').AsInteger;
  AdoQuery1.Next;
 end;    // for
 AdoQuery1.EnableControls;

Потом

  Edit1.text:=(inttostr(trunc(summa/AdoQuery1.RecordCount)));

Также компонент Label прописываешь что надо.
-----------------
А если надо чтобы в сетке первая ячейка была заполнена, то вместо Edit присваивание надо сделать именно одной ячейке.
Например так:

AdoQuery1.First; //выбираем ячейку, можно и последнюю Last,  или RecNo:=7;
AdoQuery1.Edit;//в данном случае редактируем эту ячейку, но можно и Insert если пустую строку вставить снизу и в ней вывести
AdoQuery1.FieldbyName('Rez').AsString:=(inttostr(trunc(summa/AdoQuery1.RecordCount)));
AdoQuery1.Post;

Так что можно два варианта использовать.

[crit]

Спасибо тебе=)