Подсчёт в стринггриде если заполнены только первые n столбцов

[_Oleg]

Здравствуйте! Вообщем есть таблица (2 строки на 10 столбцов, не считая заголовочных). В ячейки вводятся вещественные числа для осуществления дальнейших расчётов. Помогите, пожалуйста, сделать такой цикл чтобы выполнялся расчёт если заполнены только первые n столбцов, а остальные пустые. Для полной таблицы цикл работает, а вот если не все столбцы заполнены - не могу сообразить.

[Serge_Bliznykov]

не совсем понятно, что у Вас не получается...
Вы не можете определить, какой столбец является последним заполненным?
Если у Вас n столбцов заполнено, так и делайте цикл ДО n.
Не понятно, что с чем проблема...

Может быть, Вы свой вопрос примером своего кода проиллюстрируете?

[_Oleg]

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

не совсем понятно, что у Вас не получается...
Вы не можете определить, какой столбец является последним заполненным?
Если у Вас n столбцов заполнено, так и делайте цикл ДО n.
Не понятно, что с чем проблема...

Может быть, Вы свой вопрос примером своего кода проиллюстрируете?

Дак я хочу сделать так чтобы программа считала в случае если пользователь заполнил не всю таблицу а только первые n столбцов. Моя программа выводит сообщение такого вида если таблица заполнена не до конца (типа нет чисел):

is not a valid floating point value

Я хочу чтобы этого не было и чтоб прога спокойно считала если заполнены только первые n столбцов. Приведу фрагмент кода проги, где берутся значения из стриггрида и вычисляется мат. ожидание и дисперсия:

PHP код:

        for i:=1 to 10 do

          begin
           //вычисление мат. ожидания X1
           Endcout:=FloatToStr(
           StrToFloat(StringGrid1.Cells[i,1])*
           StrToFloat(StringGrid1.Cells[i,2]));
           Mx:=Mx+StrToFloat(Endcout);
           StringGrid3.Cells[1,1]:=FloatToStr(Mx); //заносим результат в ячейку др. таблицы

           //вычисление дисперсии X1
           Endcout2:=FloatToStr(Sqr(
           StrToFloat(StringGrid1.Cells[i,1]))*
           StrToFloat(StringGrid1.Cells[i,2]));
           Dx:=Dx+StrToFloat(Endcout2);
           StringGrid3.Cells[2,1]:=FloatToStr(Dx-sqr(Mx));
        end; 


Ладно, сформулирую вопрос по-другому. Как сделать так чтобы прога сама определяла, какой столбец является последним заполненным и выполняла расчёты согласно моему коду?

[DrBAXA]

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

Ладно, сформулирую вопрос по-другому. Как сделать так чтобы прога сама определяла, какой столбец является последним заполненным и выполняла расчёты согласно моему коду?

Попробуй в цикл пред виполнением действий поставить проверку

  if SringGrid1.Cels[i,1]='' then break;

[_Oleg]

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

Попробуй в цикл пред виполнением действий поставить проверку

  if SringGrid1.Cels[i,1]='' then break;

Не выходит. Что с полной или неполной таблицей при запуске подсчётов прога выдаёт ту же ошибку что я написал в моем предыдущем посте. Я сделел так как вы сказали:

 for i:=1 to 10 do

    if StringGrid1.Cells[i,1]='' then break;

          begin
           //вычисление мат. ожидания X1
           Endcout:=FloatToStr(
           StrToFloat(StringGrid1.Cells[i,1])*
           StrToFloat(StringGrid1.Cells[i,2]));
           Mx:=Mx+StrToFloat(Endcout);
           StringGrid3.Cells[1,1]:=FloatToStr(Mx); //заносим результат в ячейку др. таблицы

           //вычисление дисперсии X1
           Endcout2:=FloatToStr(Sqr(
           StrToFloat(StringGrid1.Cells[i,1]))*
           StrToFloat(StringGrid1.Cells[i,2]));
           Dx:=Dx+StrToFloat(Endcout2);
           StringGrid3.Cells[2,1]:=FloatToStr(Dx-sqr(Mx));
        end;