Текущий архив: 2003.08.21;
Скачать: CL | DM;

Вниз

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

← →
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;
книжки бы тебе почитать...

---

← →
Palladin ©   (2003-08-08 11:39) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c