TDateEdit

← →
Mister © (2004-05-06 23:57) [0]

товарищи, есть два компонента TDateEdit, показывают дату в таком виде 06.05.2004, как написать такой цикл, чтобы он считал от даты одного компонента до даты другого, заранее спасибо!

← →
Jack128 © (2004-05-07 00:02) [1]

не знаю, что за TDateEdit, но подозреваю, что у него есть свойство Date
var
LoopDate: TDateTime;
begin
LoopDate := DateEdit1.Date;
while LoopDate <= DateEdit2.Date do
begin
// Что то делаешь с LoopDate
...
LoopDate := LoopDate + 1;
end;
end;

← →
Mister © (2004-05-07 00:19) [2]

не удается прибавить единицу к дате(

а, нет, все прибавляется, спасибо!

TDateEdit Найти похожие ветки