delphi 日期递增循环

最新推荐文章于 2020-04-15 12:58:38 发布

单单P

最新推荐文章于 2020-04-15 12:58:38 发布

阅读量1.4k

点赞数

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.csdn.net/hansoy/article/details/44921951

版权

delphi 专栏收录该内容

27 篇文章 0 订阅

订阅专栏

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

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

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;