произведение строк в stringgrid

[Dvoishnik]

а в первом столбце вашего StringGrid какие данные??
покажи как он у вас заполняется(итог заполнения) код как вы заполняете матрицу. ??

[nila]

Вот как выглядит матрица, которую нужно заполнить.

[Dvoishnik]

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

[Serge_Bliznykov]

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

Вот как выглядит матрица, которую нужно заполнить.

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

во-вторых, если нужно игнорировать пустые ячейки, то можете взять код из моего примера. Хотя, боюсь, что банально игнорировать ячейки - это некорректно, нужно изменять алгоритм вычисления или просто ругаться и выдавать сообщение о том, что матрица не заполнена!

[nila]

считайте, что она заполнена.
а ошибку выдает, наверное, потому что матрица может быть размерностью от (3х3) до (11х11). и когда в коде я прописываю формулу для 11 строк, а потом выбираю матрицу 3х3, оно не понимает для чего в коде прописаны остальные формулы, если этих строк там нету.

[Serge_Bliznykov]

nila, Вы меня извините, но у меня такое чувство, что Вы не полностью читаете ответы!

Раз программа выдаёт ошибку, значит, ошибка есть.
В чём она заключается - не знаю.
выложите архив с исходниками проекта.
выложите скриншот, где матрица заполнена (и выдаётся ошибка).

Ну, либо продолжайте в том же духе - читайте ответы по диагонали, выбирайте текст, который Вам понравился, отвечайте на него и продолжайте исправлять баги. Если не бросите, то всё у Вас получится. в конце концов.

[nila]

вот заполненный SG и ошибка которую выдает.

[nila]

Вот код:
procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
pr:real;
begin
pr:=1;
For i:=0 to StringGrid1.ColCount-1 do
pr:=pr*StrToFloat(StringGrid1.Cells[i,1]);
pr:=exp(1/7*ln(pr));
Edit1.Text:=FloatToStr(pr);
pr:=1;
For i:=0 to StringGrid1.ColCount-1 do
pr:=pr*StrToFloat(StringGrid1.Cells[i,2]);
pr:=exp(1/7*ln(pr));
Edit2.Text:=FloatToStr(pr);
pr:=1;
For i:=0 to StringGrid1.ColCount-1 do
pr:=pr*StrToFloat(StringGrid1.Cells[i,3]);
pr:=exp(1/7*ln(pr));
Edit5.Text:=FloatToStr(pr);
pr:=1;
For i:=0 to StringGrid1.ColCount-1 do
pr:=pr*StrToFloat(StringGrid1.Cells[i,4]);
pr:=exp(1/7*ln(pr));
Edit4.Text:=FloatToStr(pr);
end;

[Serge_Bliznykov]

либо используйте десятичную точку в качестве разделителя целой и дробной части, либо в коде пишите замену.