перемножение ячеек в stringgrid

[Abay19941308]

У меня есть 2 stringgrid. Необходимо их перемножить . Ячейка StringGrid1.Cells[5,1] должна умножаться на StringGrid2.Cells[2,1]
Затем результат заносится в ячейку StringGrid1.Cells[5,2]. Полученный резульат в ячейке StringGrid1.Cells[5,2] мы должны умножить на ячейку
StringGrid2.Cells[2,2] результат заносится в ячейку StringGrid1.Cells[5,3] и так до тех пор пока не закончится цикл for.
У меня выводит результат сразу в последнюю ячейку и перемножает только первое значение. Помогите пожалуйста!!!

P:=1/(1+zn);
StringGrid1.Cells[5,1]:=floatToStr(p);

for j:=2 to n do begin
  SP:=P*StrToFloat(StringGrid2.Cells[2,j]);
  StringGrid1.Cells[5,i]:=floatToStr(sp);

[Serge_Bliznykov]

во-первых, на рисунках не видно, где какой грид (где грид1, а где грид2), поэтому лучше выкладывать исходный код проекта (в виде архива, конечно).

во-вторых, Вы, надеюсь, не забыли, что в этом криворукосделанном (имхо) TStringGrid в методе Cells идёт сначала указание индекса СТОЛБЦА, потом - индекса СТРОКИ.

в-третьих, крайне рекомендую во всех операция с циклом использовать не абстрактную переменную N, а конкретно число строк (и/или столбцов, в зависимости от цикла) того грида, который обрабатывается. Иначе это привёдет к трудноуловимым глюкам и багам!


так, что ли?

P:=1/(1+zn);
StringGrid1.Cells[5,1]:=floatToStr(p);

for j:=2 to n do begin
  P:=P*StrToFloat(StringGrid2.Cells[2,j]);
  StringGrid1.Cells[5,i] := floatToStr(P);
end;