Таблица в Delphi

[hohol90]

Помогите доделать, нужно сделать так, чтобы в поле Edit7 выводилась сумма всех значений столбца З/П Средн. разделенная на 6.

Программа прилагается.

Заранее благодарю!!!

[Serge_Bliznykov]

1) Вы переделали чужую программу и забыли испрвить комментарии в ней..
2) вот код (жирным выделены вносимые изменения):

var
  c, r: integer; // номер колонки и строки таблицы
  p, s: real; // очков у команды
  SumAll : real;
begin
  SumAll := 0;
  for r := 1 to tabl.rowcount do // обработать все строки
  begin

    for c := 0 to 6 do
      if tabl.cells[c, r] = ''
        then tabl.cells[c, r] := '0';

      // вычисляем количество очков
    p := StrToFloat(tabl.cells[0, r]) +
      StrToFloat(tabl.cells[1, r]) +
      StrToFloat(tabl.cells[2, r]) +
      StrToFloat(tabl.cells[3, r]) +
      StrToFloat(tabl.cells[4, r]) +
      StrToFloat(tabl.cells[5, r]);

    tabl.cells[6, r] := FloatToStr(p / 6);
    SumAll := SumAll + (p / 6);
  end;
  Edit7.Text := FloatToStr(SumAll/6)
end;

для подсчёта среднего по строкам лучше использовать такой код вместо вашего (я пометил его выше фиолетовым!):

var
  c, r: integer; // номер колонки и строки таблицы
  p : real;
  SumAll : real;
begin
  SumAll := 0;
  for r := 1 to tabl.rowcount do // обработать все строки
  begin
    p := 0;
    for c := 0 to 5 do
    begin
      if tabl.cells[c, r] = ''
        then tabl.cells[c, r] := '0';
      p := p + StrToFloat(tabl.cells[c, r])
    end;
    tabl.cells[6, r] := FloatToStr(p / 6);
    SumAll := SumAll + (p / 6);
  end;
  Edit7.Text := FloatToStr(SumAll/6)
end;

[hohol90]

большое спасибо, все работает.

насчет программы, да взял чужой исходник, но хотел сначала заставить работать аддекватно, а потоим уже все доделать остальное.