delphi 日期递增循环

原理：对一个日期控件进行循环

目的：选择日期，做个动作，选择下个日期，重复做这个动作...

procedure TMainForm.button1Click(Sender: TObject);var  DateStart,DateStop:TDateTime;begin  DateStart:=StrToDate('2013-12-01');  DateStop:=StrToDate('2013-12-31');  while DateStart <= DateStop do  begin    dtp1.Date:=DateStart;    dtp1.OnChange(nil);    button2.OnClick(nil);//  执行一些操作    DateStart:=DateStart+1;  end;  Application.MessageBox('大功告成！', '', MB_OK + MB_ICONINFORMATION);end;