[vnutr]

Люди добрые у меня вот есть кусочек программы, в котором вылетает ошибка. Где я выхожу за пределы грида. Помогите подправить:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

for r:= 1 to StringGrid1.RowCount-1 do   begin         if (stringgrid1.Cells[0,r]<>'')and(stringgrid1.Cells[1,r]<>'')and(stringgrid1.Cells[0,r+1]<>'')and((stringgrid1.Cells[1,r+1]<>'')) then         begin           BeginDate:= StrToDate(Stringgrid1.Cells[0, r]);         EndDate:= StrToDate(Stringgrid1.Cells[1, r]);          while((StrToDate(StringGrid1.Cells[0,r+1]))<(StrToDate(StringGrid1.Cells[1,r+1]))) and((StrToDate(StringGrid1.Cells[1,r+1])>=BeginDate)and(StrToDate(StringGrid1.Cells[1,r+1])<=EndDate))and((StrToDate(StringGrid1.Cells[0,r+1])>=BeginDate)and(StrToDate(StringGrid1.Cells[0,r+1])<=EndDate))do         begin         showmessage(StringGrid1.Cells[0,r+1]+ ' - ' + StringGrid1.Cells[1,r+1] + ' входит в период ' + ' c '+ DateToStr(BeginDate) + ' по ' + DateToStr(EndDate));         stringgrid1.Rows[r+1].Clear;         SgSort( StringGrid1, 0);         end;                   if (StrToDate(StringGrid1.Cells[0,r+1])>=BeginDate)and(StrToDate(StringGrid1.Cells[0,r+1])<EndDate) then          begin         showmessage(StringGrid1.Cells[0,r+1] + ' входит в период ' + ' c '+ DateToStr(BeginDate) + ' по ' + DateToStr(EndDate));          Stringgrid1.Cells[0,r+1]:= Stringgrid1.Cells[1,r];          obrabotka;         end;         end;

Ошибка в цикле while - do. Пожалуйста помогите

[Pilot_Red]

А в каком именно месте вылетает ошибка, у меня все арбайтен. Конечно... процедуры SgSort, obrabotka я убрал....

[Страдалецъ]

На последнем проходе цикла вы обращаетесь к пустому значению грида, но для StringGrida это в общем прокатило-бы, если бы вы не пытались это значение преобразовать в дату:

Код:

1	StrToDate(StringGrid1.Cells[0,r+1])

[vnutr]

Сообщение от Страдалецъ

На последнем проходе цикла вы обращаетесь к пустому значению грида, но для StringGrida это в общем прокатило-бы, если бы вы не пытались это значение преобразовать в дату:

Честно говоря не совсем понятно почему. Просто мне нужны именно Tdatetime. Ошибки не возникает если заменить while - do на if - then. И после первого условия поставить else. Но мне надо чтоб это условие было зациклено. А так не получаеться. ПОМОГИТЕ