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

[nila]

Есть stringgrid. нужно посчитать произведение каждой строки отдельно в разные edit'ы. и с этой строки взять корень 7 степени. как это лучше сделать?

[northener]

1. Строки не подлежат умножению. Следовательно произведение строк это нонсенс.
2. Из строки нельзя взять корень. Его у неё просто нет. Вот у слов в строке корень есть, но его степень это тоже нонсенс.

[nila]

есть stringgrid. в нем какие-то значения вписаны, как целые, так и с запятой. нужно умножить эти значения по рядкам и с числа, что получиться взять корень 7 степени.

[Serge_Bliznykov]

какой вопрос, такой и ответ:

Найти произведение для одного "рядка" и взять корень 7й степени:

Pr := 1.0;
for i:=0 to StringGrid1.ColCount-1 do
  Pr := Pr * StrToFloatDef(StringGrid1.Cells[i, НомерРядка],1);

Square7 := Power(Pr, 1/7);

[newerow1989]

Для ПЕРВОЙ строки:

procedure TForm1.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);
end;

[nila]

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

Для ПЕРВОЙ строки:

procedure TForm1.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);
end;

сделала так, выбивает ошибка: '' is not valid floating point value

[newerow1989]

Надо заполнить массив числами

[nila]

есть заполненый, как целыми числами, так и с запятой.

[Serge_Bliznykov]

nila, Вы ошибаетесь, нет у Вас заполненного.
Попробуйте взять код из моего примера.

Покажите, как у Вас заполнен грид. Да и исходники проекта выложить было бы неплохо.

[nila]

вот у меня в чем проблема, не всегда матрица одного размера, все зависит от того, что я введу в edit. В edit'е "Введіть критерії" можно ввести число от 3 до 11.
и в зависимости от этого в следующей форме открывается stringgrid разной размерности (3х3, 4х4 и т.д.).