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

2025-06-20 20:47:28
推荐回答(1个)
回答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;