Не работает программа

[Zhenya_master]

После нажатия на кнопку обработки абсолютно ничего не происходит, не выбивает никакой ошибки, просто напросто ничего.

procedure TForm1.Button6Click(Sender: TObject);
var
 Tip: String;
 i,  j : Integer;
begin
With SG1  do
   begin
   for i := 1 to N do begin
     V.Start:=strtodatetime(cells[3,i]);
     V.Stop:=StrTodateTime(cells[4,i]);
     V.vremya:=(V.Stop-V.Start);
     cells[6,i]:=FloatToStrF(V.Vremya,fffixed,4,0);
     end;
  Tip := Edit1.Text;
  j := SG2.FixedRows;
  SG2.RowCount := SG2.FixedRows + 1;
  SG2.Rows[j].Clear;
  for i := 0 to SG1.RowCount - 1 do begin
    if (SG1.Cells[5, i] <> Tip) then  begin
    V.Summa:=(V.Vremya*3);
    end
    else
    begin
    V.Summa:=(V.Vremya*8.2)
    end;

 end;
end;
     end;

Ещё фото задание и саму программу прикрепил.

[northener]

Сомневаюсь что вообще ничего не происходит. По крайней мере 6-й столбец должен заполняться. А больше никакого выхлопа в этом коде не предусмотрено.

[Zhenya_master]

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

Сомневаюсь что вообще ничего не происходит. По крайней мере 6-й столбец должен заполняться. А больше никакого выхлопа в этом коде не предусмотрено.

В том то и дело, что его не заполняет.
Иии, ещё предусмотрено заполнение последнего столбца

[northener]

Значит надо поставить точку останова на строке

for i := 1 to N do begin

и посмотреть чему равно N

предусмотрено заполнение последнего столбца

А этого в коде нет.

[Zhenya_master]

for i := 0 to SG1.RowCount - 1 do begin
    if (SG1.Cells[5, i] <> Tip) then  begin
    V.Summa:=(V.Vremya*3);
    end
    else
    begin
    V.Summa:=(V.Vremya*8.2)
    end;

Вот тут идёт заполнение последнего столбца

Что такое "точку останова на строке"? Впервые такое слышу.

[northener]

Вот тут идёт заполнение последнего столбца

Не вижу где тут что-то пишется в какой-нибудь столбец.

Что такое "точку останова на строке"? Впервые такое слышу.

http://delphicomponent.ru/205-otladk...programmy.html

[Zhenya_master]

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

Не вижу где тут что-то пишется в какой-нибудь столбец.


http://delphicomponent.ru/205-otladk...programmy.html

Сейчас ознакомлюсь со статейкой

Да, Вы правы, что-то я как-то пропустил то, что не вывожу результат в последний столбец.

[Zhenya_master]

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

Не вижу где тут что-то пишется в какой-нибудь столбец.


http://delphicomponent.ru/205-otladk...programmy.html

При останове выделяется красной линией строка и что дальше?
Запускаешь программу и она возвращает в код к этой строке и всё.

[northener]

Затем наводишь мышку на букву N и во всплывающей подсказке видишь значение этой переменной.

[Zhenya_master]

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

Затем наводишь мышку на букву N и во всплывающей подсказке видишь значение этой переменной.

N=0