Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как организовать цикл с перемонной цикла типа TDat

Автор: ruford 18.6.2007, 14:45

Имеются в проге 2 TDateTimePicker-а (DateTimePicker1 и DateTimePicker2).
Нужно перебрать файлы с датой создания от DateTimePicker1->Date до DateTimePicker2->Date даты задаются пользователем.
(вернее там в имена файлов вставляется дата - короче имя файла выглядит так
'311206.ext' - 31 декабря 2006 г.)
Как организовать цикл от DateTimePicker1->Date до DateTimePicker2->Date?

Автор: pseud 18.6.2007, 14:54

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  d: Integer;
begin
  d := Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date);
  for i := 0 to d do
  begin
    // do something
  end;
end;

Добавлено через 3 минуты и 10 секунд

или так

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  for i := Trunc(DateTimePicker1.Date) to Trunc(DateTimePicker2.Date) do
  begin
    s := DateToStr(i);
    ShowMessage(s);
  end;
end;

Автор: Rodman 18.6.2007, 15:07

Код


for i:=1 to DaysBetween(Date1, Date2) do //что то такое
begin
  // проверка
end;

Автор: aktuba 18.6.2007, 17:29

Код


var
  dt: TDate;
...
  dt := date1;
  while CompareDate(dt, date2) < 0 do
    begin
      ...
    end;