如何delphi button1用FormatdateTime取当前系统日期，然后按钮2实现日期递增？
用label显示日期，我按钮一代码：procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=FormatdateTime('dddddd ',now);
end;
按钮二如何写代码实现按钮一取出的日期递增 并显示在label上？
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;。
答：做一个两帧的mc，分别设置不同的颜色，并给每帧加上stop(); 给mc加上as： on (release) { this.gotoAndStop(2) } 即...详情>>
答：详情>>
答：昆明这边的国际化英语教育培训学校不少，但真正专业的不多，你有需求的话，还是去了解下国际私塾吧，他们是全外教教学，所以学习质量会非常的高。详情>>
答：翻译题就不写了，太长，选择题如下：ACABCCBBBC 完形填空：CBACDDCDDCABCDB 阅读理解：CDCAD 翻译题6 Good luck with ...详情>>
问：请帮我翻译请帮我翻译参加法律（基础科段）专业专科高等教育自学考试 谢谢！
答：taking part in self-taught examination for higher education ----law major (junio...详情>>
