работа со stringGrid и массивом

[Владимир Викторови]

У меня есть StringGrid на форме, в который я вывожу данные из access. Вот код, с помощью которого я нахожу интегральную оценку:

procedure TForm3.Button2Click(Sender: TObject);
var
sr:real;
i, j, sum, c, cc : integer;
begin
for i := 1 to StringGrid1.RowCount-1 do //цикл по строкам
  begin
    c:=0;  //обнуляем количество не нулевых ячеек в строке
    sum:=0; //Обнуляем сумму в строке
 
    for j := 2 to StringGrid1.ColCount-2 do
     begin
      //Подсчет суммы и количества
      if StringGrid1.Cells[j,i] <> '' then
       begin
        c:=c+1;
        sum:=sum+StrToint(StringGrid1.Cells[j,i])
      end;
    //Выводим среднее в последний столбец
    cc:=stringgrid1.colcount-1 ; //находим последний столбец
    sr:=sum/c;
    StringGrid1.Cells[cc, i]:=floattostrF(sr,ffFixed,10,0)  //вбиваем данные
       end;
 
 
 
end;
end;

Помогите пожалуйста сделать так, чтобы если я оставил все поля пустые(кроме ФИО(это может случиться, если человек не пришел на экзамен )) то цикл пропускает эту строку(не высчитывает среднее значение) а ФИО заносится в массив. Данные я сам вбиваю. в общем, у меня в access'е хранятся только ФИО а поля оценок я сам создаю и заполняю их. Массив я не создал, это не так сложно сделать. Если не понятно объяснил - переспросите.

[Stilet]

А ты после отработки for j := 2 проверяй на ноль переменку "с".
Или нулевые значения допустимы?
И замени StrToint на StrTointDef, чтоб в случае невозможности преобразования в число подставляло что-то другое.

[Владимир Викторови]

вы хотите сказать, после проходения всего цикла for j:=2? То есть в итоге получается так: (первый цикл, (второй), далее в первом же условие если с = 0 то заносим в массив и потом далее оканчиваем цикл)? надо попробывать

[Stilet]

Ну да. Именно так.