is not valid integer value

[roma88gruzd88]

Здравствуйте.
Есть Stringgrid из 9 столбцов(Группа, Фамилия, Математика, Физика, ОАиП, ООП, БД, уч в общ жизни, Стипендия)
Делаю расчет стипендии в последнем столбце. Запускаю цикл на проверку значений с 3 столбца и второй стоки(там числа), все компилируется, но когда наживаю Рассчитать стипендию, то выдает ошибку is not valid integer value, как я понимаю он не находит числовых значений в StringGrid-е, но там у меня числа, и пустых строк нет.
У кого какие идеи? В чем проблема?

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  i, j, k5, k4, k3: integer;
  s: double;
begin
StringGrid1.ColCount:=9;
s:=StrToFloat(Edit1.Text);
for i:=2 to stringgrid1.ColCount-1 do
  begin
  for j:= 1 to stringgrid1.RowCount-1 do
    begin
    k5:=0;
    k4:=0;
    k3:=0;
    if strtoint(stringgrid1.Cells[i,j]) = 5 then k5:=k5+1
    else if strtoint(stringgrid1.Cells[i,j]) = 4 then k4:=k4+1
    else if strtoint(stringgrid1.Cells[i,j]) = 3 then k3:=k3+1;
    if (k5=5)and(k4=0)and(k3=0)and(strtoint(stringgrid1.Cells[7,i])=1) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s+s/2);
    end
    else if (k5=5)and(k4=0)and(k3=0)and(strtoint(stringgrid1.Cells[7,i])=0) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s+s/4);
    end
    else if ((k5<5)or(k5>0))and((k4<5)or(k4>0))and(k3=0) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s);
    end
    else if ((k5<5)or(k5>0))and((k4<5)or(k4>0))and(k3=1)and(strtoint(stringgrid1.Cells[7,i])=1) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s);
    end
    else stringgrid1.Cells[8,i]:='Нет';

    end;
  end;
end;

[Аватар]

А в 8-ую колонку сами же пишете не целые числа, а потом удивляетесь - почему в Integer не преобразовывается. Цикл по столбцам должен же это учитывать. Да и запись в Cells[8,i] походу не верна, скорее Cells[8,j]. Аналогично для Cells[7,i]

[roma88gruzd88]

Сообщение от Аватар

А в 8-ую колонку сами же пишете не целые числа, а потом удивляетесь - почему в Integer не преобразовывается. Цикл по столбцам должен же это учитывать. Да и записть в Cells[8,i] походу не верна, скорее Cells[8,j]

все понял) спасибо) но вот еще один вопрос, в последнюю колонку записываются все одинаковые данные, т.е. в моем случае 100000, хотя исходные данные разные

[Serge_Bliznykov]

Сообщение от roma88gruzd88

все понял) спасибо) но вот еще один вопрос, в последнюю колонку записываются все одинаковые данные, т.е. в моем случае 100000, хотя исходные данные разные

ну очевидно. Потому что Вы неверно формируете.

Более конкретный ответ дать затруднительно - не видно не только ваших исходных данных, но и вашего кода!
Вы вообще что делаете, пытаетесь подсчитать количество и процент оценок, вроде того, как отображаются оценки на dnevnik.ru ?!


p.s. и ещё, обсуждение заполнения StringGrid'а выходит за рамки заявленной Вами темы!

[evg_m]

    k5:=0;
    k4:=0;
    k3:=0;
    if strtoint(stringgrid1.Cells[i,j]) = 5 then k5:=k5+1
    else if strtoint(stringgrid1.Cells[i,j]) = 4 then k4:=k4+1
    else if strtoint(stringgrid1.Cells[i,j]) = 3 then k3:=k3+1;

любое из k5, k4, k3 будет 0 или 1 (и только!)
поэтому k5=5 всегда False и k5<5 всегда True
поэтому вы всегда идете на запись по одной и той же ветке

    if FALSE // (k5=5)and(k4=0)and(k3=0)and(strtoint(stringgrid1.Cells[7,i])=1) 
then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s+s/2);
    end
    else if FALSE // (k5=5)and(k4=0)and(k3=0)and(strtoint(stringgrid1.Cells[7,i])=0) 
then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s+s/4);
    end
    else if TRUE //((k5<5)or(k5>0))and((k4<5)or(k4>0))
and(k3=0) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s);
    end
    else if TRUE //((k5<5)or(k5>0))and((k4<5)or(k4>0))
and(k3=1)and(strtoint(stringgrid1.Cells[7,i])=1) then
    begin
        stringgrid1.Cells[8,i]:=FloatToStr(s);
    end
    else stringgrid1.Cells[8,i]:='Нет';

хотя нет веток больше, но все равно не все.
А-a-a! запись то идет после каждой проверки!
стало быть при расчете учитываются только последняя колонка.

Что делать?
Выкинуть цикл по колонкам и честно (для всех известных колонок) расписать как мы будем считать стипендию.

Есть Stringgrid из 9 столбцов(Группа, Фамилия, Математика, Физика, ОАиП, ООП, БД, уч в общ жизни, Стипендия)

P.S. а теперь можно опять добавить цикл по колонкам, но по нужным и в нужное место!