[TOJluK]

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

Т.е. Это где?

Где- то тут:

Код:

if r < StringGrid1.RowCount- 1 then
begin 
if  (StrToDate(StringGrid1.Cells[0,r+1])>BeginDate)and(StrToDate(StringGrid1.Cells[0,r+1])<EndDate) then
  showmessage(StringGrid1.Cells[0,r+1] + ' входит в период ' + ' от '+ DateToStr(BeginDate) + ' по ' + DateToStr(EndDate));
end
else
  ShowMessage('Конец списка');