Код и несколько вопросов

[artemavd]

Stilet, спасибо я сделал чтобы он считал по вертикали, заменил то, что ты сказал, но пока без итоговых результатов считает). Помоги мне записать этот код:

SG2.Cells[0,26]:=   
    FloatToStr((StrToIntDef(SG2.Cells[0,1],0)+StrToIntDef(SG2.Cells[0,2],0)+   
    StrToIntDef(SG2.Cells[0,3],0)+StrToIntDef(SG2.Cells[0,4],0)+   
    StrToIntDef(SG2.Cells[0,5],0)+StrToIntDef(SG2.Cells[0,6],0)+   
    StrToIntDef(SG2.Cells[0,7],0)+StrToIntDef(SG2.Cells[0,8],0)+   
    StrToIntDef(SG2.Cells[0,9],0)+StrToIntDef(SG2.Cells[0,10],0)+   
    StrToIntDef(SG2.Cells[0,11],0)+StrToIntDef(SG2.Cells[0,12],0)+   
    StrToIntDef(SG2.Cells[0,13],0)+StrToIntDef(SG2.Cells[0,14],0)+   
    StrToIntDef(SG2.Cells[0,15],0)+StrToIntDef(SG2.Cells[0,16],0)+   
    StrToIntDef(SG2.Cells[0,17],0)+StrToIntDef(SG2.Cells[0,18],0)+   
    StrToIntDef(SG2.Cells[0,19],0)+StrToIntDef(SG2.Cells[0,20],0)+   
    StrToIntDef(SG2.Cells[0,21],0)+StrToIntDef(SG2.Cells[0,22],0)+   
    StrToIntDef(SG2.Cells[0,23],0)+StrToIntDef(SG2.Cells[0,24],0)+   
    StrToIntDef(SG2.Cells[0,25],0)));

в виде цикла, который бы сумировал. Пожалуйста))

[NikLik]

Мне непонятно, почему используется и FloatToStr, и StrToIntDef.
Разные типы.

var
  i: byte;
begin
  SG2.Cells[0, 26]:='0';
  for i := 1 to 25 do
    SG2.Cells[0, 26] := FloatToStr(StrToFloat(SG2.Cells[0, 26]) +
      StrToFloatDef(SG2.Cells[0, i], 0));
end;

[zetrix]

var s,i:integer=0;
begin
For i:=1 to 25 do s:=s+StrToIntDef(SG2.Cells[0,i],0);
SG2.Cells[0,26]:=FloatToStr(s); //здесь можно вместо FloatToStr использовать InttoStr
end;

[artemavd]

Теперь стала задача у меня деления .
Цикл:

for i:=1 to 25 do
  begin
  g:=g+StrToIntDef(SG3.Cells[0,i],0);
  SG3.Cells[0,26]:=FloatToStr(g);

Он считает сумму ячеек в столбце. Как я и хотел. Все правильно. Не жалуюсь на его работу).
Но вот для рассчета этого цикла:

for i:=1 to 25 do
  begin
  p:=p+StrToIntDef(SG3.Cells[2,i],0);
  SG3.Cells[2,26]:=FloatToStr(p);

нужно ответ в SG3.Cells[2,26] разделить на число в SG3.Cells[0,26].
Например, если в таблице заполонены все 25 строк единицами и в третьей таблице получается 50, то в сумме у меня он щас выводит 1250. Так то оно так, но в ответе (SG3.Cells[2,26]) должно быть не 1250, а 50, потому что при рассчете 1250 должно делится на кол-во заполненых строк, т.е на 25 в данном случае.
Я пробовал писать так:

for i:=1 to 25 do
  begin
  p:=p+StrToIntDef(SG3.Cells[2,i],0);
  SG3.Cells[2,26]:=FloatToStr(p/StrToIntDef(SG3.Cells[2,i],0));

То получается в SG3.Cells[2,26] ответ 25, а должно быть 50!.
Пока что сейчас не получается решить этот вопрос с делением((. Плиз помогите. Кроме вас спросить не у кого(

[Stilet]

Чет я недоперепонял твои мысли (твои скакуны)...
Тебе нужно :

при рассчете ... должно делится на кол-во заполненых строк

Ну так в чем проблема? :

NotNulCount:=0;
for i:=1 to 25 do     begin   
  p:=p+StrToIntDef(SG3.Cells[2,i],0);   
  if SG3.Cells[2,i]<>'' then inc(NotNulCount);
end;
if NotNulCount>0 then  SG3.Cells[2,26]:=FloatToStr(p/NotNulCount);

[artemavd]

Stileeeeeeeet!!!!!!!!!!)))))))))))) Красавчик! Молодец! Теперь все делит правильно и считает! Отлично!)). Токо у меня не получается сделать
для этого цикла (тут числа не целые, а дроби 100%):

for i:=1 to 25 do
 begin
  v:=v+StrToIntDef(SG3.Cells[1,i],0);
  SG3.Cells[1,26]:=FloatToStrF(v,ffFixed,0,1);
 end;

Я пробовал так:

NotNulCount:=0;
for i:=1 to 25 do
 begin
  v:=v+StrToIntDef(SG3.Cells[1,i],0);
    if SG3.Cells[1,i]<>'' then inc(NotNulCount);
 end;
  if NotNulCount>0 then SG3.Cells[1,26]:=FloatToStrF((v/NotNulCount),ffFixed,0,1);

Но это ничего не изменило. Такой же ответ и выводит. Число должно быть обязательно дробным! Для остальных циклов я сделал)

[Stilet]

тут числа не целые, а дроби

Че прям вот так дробь??? с палочкой посередине?
Замени StrToIntDef на StrToFloatDef
И убедись что разделитель в твоих "дробях" соответствующий

[artemavd]

И убедись что разделитель в твоих "дробях" соответствующий

Хорошо))
А можешь напомнить как сделать так чтобы программа не реагировала на то, что данные введены не во все ячейки?

[Stilet]

 if SG3.Cells[x,y]<>'' then //

или

  if trystrtofloat(SG3.Cells[1,i],perem) then // perem содержит число
 else // в ячейке не число а чушь на палочке