[Serval]

Задача вывести в таблицу(использую DBGrid - нужна именно она) данные где столбцы это (число.месяц) которые беруться из стандартного календаря дельфи (DateTimePicker).
Если бы это делалось в пределах одного месяца то проблем бы невозникало (там простой счетчик), но нужно и за несколько месяцев и тут проблема в переходе между месяцами и в том что количество дней неодинаковое, а если еще учесть високосные года...
Можно ли как-то сделать счетчик перебора всех дат из выбранного диапазона - без использования многоэтажного перебора с условиями...

[lmikle]

Да, можно. Просто прибавляй к дате 1:

Код:

var
  I : Integer;
  D : TDateTime;
begin
  D := DateTimePicker1.Date;
  For I := 1 To 60 Do // 60 дней
    Begin
      ShowMessage(DateToStr(D));
      D := D + 1;
    End;

[Serval]

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