Как организовать цикл от одной даты к другой?

← →
Yuraz © (2003-08-08 11:35) [0]

Не могу код дороботать:
procedure TForm1.Button2Click(Sender: TObject); var t,t1,t2:TDateTime; begin t1:=Date; t2:=Date-20; for t:=trunc(t1) to trunc(t2) do begin Memo1.Lines.Add(DateToStr(t)); end; end;

← →
dez © (2003-08-08 11:38) [1]

t := t1;
while t < t2 do begin
Memo.Lines...
t := t + 1;
end;

← →
Anatoly Podgoretsky © (2003-08-08 11:39) [2]

Данный цикл не выполнится ни одного раза, надо downto или поменять местами t1 и t2
t также должен быть перечислимого типа, например Integer.

← →
MBo © (2003-08-08 11:39) [3]

t:Integer;
книжки бы тебе почитать...

как ты бежишь от большего к меньшему? ты про downto в курсях?

Как организовать цикл от одной даты к другой? Найти похожие ветки