VPF::Как организовать цикл с перемонной цикла типа TDat

ruford

Дата 18.6.2007, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 20.7.2006

Репутация: нет
Всего: нет

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

pseud

Дата 18.6.2007, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Код


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 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Код


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

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

aktuba

Дата 18.6.2007, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Код


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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »