Cреднее значение столбца в StringGrid

Posted by Chas under Delphi

есть стринггрид и 5 столбцев. в 4 нужно посчитать среднее значение по всему столбцу и вывести в edit

Stilet

with StringGrid do begin tag:=0;

 for i:=0 to RowCount-1 do tag:=tag+StrtoIntDef(cells[i,Номер колонки],0);

 Результат:=1.0*tag/RowCount;

end;

phomm
Я могу только накропать простенькую функу для Вас (она вдобавок учитывает количество фиксированных строк):

function GetAvgOfCol(SG: TStringGrid; ACol: Integer): Double;

var

  i : Integer;

begin

  Result := 0;

  for i := SG.FixedRowCount to SG.RowCount - 1 do

    Result := Result + StrtoIntDef(SG.Cells[i, ACol],0); // честно стибрил преобразование у Stilet

  Result := Result / (SG.RowCount - SG.FixedRowCount);

end;

тема на форуме

Похожие статьи

• Сумма столбца, в котором находится минимальный элемент StringGrid
• Добавить строку с верха вниз StringGrid
• Изменение размера динамического StringGrid
• Зашифровать данные из StringGrid
• Выгрузить данные из stringGrid в ms word
• Сохранить таблицу из StringGrid в MS Word
• Проверить stringrid на пустоту
• Сложить столбец в Stringgrid
• Копировать данные StringGrid в другой StringGrid
• Добавить checkbox в stringrid