Цикл на вычисление в StringGrid

[armrock]

Вот код, в котором я вычисляю с помощбю данных из ячеек ОДНОЙ СТРОКИ sringgrid и результат вношу в другую ячейку ЭТОЙ ЖЕ СТРОКИ.

ПОМОГИТЕ МНЕ НАПИСАТЬ ЦИКЛ что бы вычислять тоже самое только со всеми строками в stringgrid (их может быть разное кол-во). Спасибо!!!

procedure TForm4.BitBtn10Click(Sender: TObject);
var
a,b,c,f,n: real;
begin
a:=StrToFloat (StringGrid1.Cells [4,1]);
b:=StrToFloat (StringGrid1.Cells [5,1]);
f:=StrToFloat (StringGrid1.Cells [6,1]);
if a<=144 then begin
c:=a*b-a*b/100*f;
end
else
c:=(144*b+(a-144)*(b*2))-((144*b+(a-144)*(b*2))/100*f);
StringGrid1.Cells [stringgrid1.Col+7,stringgrid1.Row]:=FloatToStr (c);
end;

[Базиля]

Какие вычисления нужно производить?
Число ячеек в строке фиксированное?
P.S.

for i:=0 to stringgrid1.rowcount-1

[armrock]

Вычисления есть в коде, но это ерунда..мне главное цикл.
Число столбцов ФИКСИРОВАНОЕ, а строк может быть от 1 до сотен!


Но данные естественно должны браться вот сдесь

a:=StrToFloat (StringGrid1.Cells [4,1]);
b:=StrToFloat (StringGrid1.Cells [5,1]);
f:=StrToFloat (StringGrid1.Cells [6,1]);

КАЖДЫЙ РАЗ ИЗ СВОЕЙ СТРОКИ и РЕЗУЛЬТАТ ТОЖЕ В СООТВЕТСТВУЮЩУЮ СТРОКУ!!!!!!!

[Базиля]

Ну вот, все что надо я уже описал:

for i:=0 to stringgrid1.rowcount-1
    begin
    a:=StrToFloat (StringGrid1.Cells [4,i]);
    b:=StrToFloat (StringGrid1.Cells [5,i]);
    f:=StrToFloat (StringGrid1.Cells [6,i]);
    {вычисления и все необходимые действия}
    end;

[armrock]

ничего не понял....я тоже так сделал.....но вот что за проблема!! программа запускаеться но при нажатии на кнопку для расчёта появляеться ошибка..


там что то типо Convert Error with message "Часы' is not a valid floating point value'. Process stopped.

Часы - это одна из моих колонок, откуда беруться данные=((

[Базиля]

Как я понимаю часы это значение одной из ячеек. Это строка, вы пытаетесь строку привести к вещ. типу данных - разумеется ошибка будет
Полагаю вы обходите заголовок вашей таблицы.
Нумерование строк в стринггриде начинается с нуля, будьте внимательны
Измените начальный параметр цикла на 1.

for i:=1 to stringgrid1.rowcount-1

[armrock]

ННО всёравно чуть не так работает, Заносит результат последней строки в первую, а должен заносить результат каждой строки в соответствующую!

[Базиля]

StringGrid1.Cells [stringgrid1.Col+7,i]:=FloatToStr (c);

[armrock]

Спасибо большое что помогаете!!!! ВСЁ РАБОТАЕТ!

Есть ещё один вопрос: а как сделать что бы оно считало все строки в которых всё заполнено, а те строки в которых не хватает нужных для вычисления данных не вычисляло. Сейчас если хоть одной данной нет, то не вычисляет вообще и ошибка.

[Базиля]

Нужно проверять ячейки на пустоту.
Один из вариантов:

for i:=1 to stringgrid1.rowcount-1    
  begin
    proverka:=false;
    if (StringGrid1.Cells [4,i]='') or (StringGrid1.Cells [5,i]='')  or  (StringGrid1.Cells [6,i])='') then
    proverka:=true;
    if proverka then
    StringGrid1.Cells [stringgrid1.Col+7,i]:='Для вычисления, заполните все ячейки!'
    else
     begin
     a:=StrToFloat (StringGrid1.Cells [4,i]);
     b:=StrToFloat (StringGrid1.Cells [5,i]);
     f:=StrToFloat (StringGrid1.Cells [6,i]);
     f:=StrToFloat (StringGrid1.Cells [6,i]);
    ...
     end;
  end;