Question

delphi按钮问题，我用一个按钮去当前系统日期显示到Label。

delphi按钮问题，我用一个按钮去当前系统日期显示到Label。caption中，然后点击另外一个按钮使该日期加一天，如何实现他们三个控件之间的调用？

Answer 1

加单元DateUtils，

procedure TForm1.btn1Click(Sender: TObject);
begin
lbl1.Caption := DateToStr(date);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
lbl1.Caption :=DateToStr(IncDay(StrToDate(lbl1.Caption),1))
end;

追问

我想用按钮1事件取系统当前时间，显示到label.caption中，然后再用button2调用label.caption中显示的内容，然后再进行日期加减，这要怎么实现？
我写的按钮1事件代码：procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('dddddd ',Now);

end;
然后按钮2代码怎么写

追答

lbl1.Caption :=DateToStr(IncDay(StrToDate(Date),-1));