如何delphi button1用FormatdateTime取当前系统日期，然后按钮2实现日期递增？

用label显示日期，我按钮一代码：procedure TForm1.Button1Click(Sender: TObject);
begin
          Label1.Caption:=FormatdateTime('dddddd ',now);
end;
按钮二如何写代码实现按钮一取出的日期递增 并显示在label上？

追问：能运行但是按钮2会出错，取出来的日期无效，因为按钮一日期格式有个星期几，如何修改？在啊，我想要的就是2008年8月8日星期二这种格式，如何修改以上代码实现呢，你QQ多少，我Q像你请教

答案：uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
      Label1.Caption:=FormatdateTime('dddddd ',now);
end;

procedure TForm1.Button2Click(Sender: TObject);
function Replace(astr: string):string;
begin
  astr:= StringReplace(astr,'年','-',[rfReplaceAll]) ;
  astr:= StringReplace(astr,'月','-',[rfReplaceAll]) ;
  astr:= StringReplace(astr,'日','-',[rfReplaceAll]) ;
  Result:= Copy(astr,1,Length(astr)-1);
end;
var
  vstr: string;
begin
  vstr:= Replace(trim(label1.caption));
  Label1.Caption:=FormatdateTime('dddddd',incday( StrToDate(vstr), 1));
end;

其他：procedure TForm1.Button1Click(Sender: TObject);
begin
          Label1.Caption:=FormatdateTime('yyyy-mm-dd ',now);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
          Label1.Caption:=FormatdateTime('yyyy-mm-dd ',incday(strtodate(label1.caption), 1));
end; 

上一个：delphi如何读取ini文件或txt文件到edit控件？
下一个：求教——delphi数字和字符串混合在一起的数据读取