怎么控制delphi 中的月份呢?
我在窗体击活事件中写如下代码:
edit1 :=datetimetostr(date);
edit2.text:=formatdatetime('mm',date );
在Button1 事件中写如下代码
edit1:=datetimetostr(strtodate(edit1.Text)+1);
然后我每次按 Button1 的时候 时间自动加一天 ,当天数加到30时 月份也就加一个月;
如何写代码?
你可以声明一个全局变量如： ；在窗体激活事件中使之dqrq:=date;同时修改edit1、edit2的初始化事件：edit1.text :=datetimetostr(dqrq); edit2.text:=formatdatetime('mm',dqrq );（也可以不改，但函数调用效率、代码体积都有差别）。button1的事件写为：dqrq:=dqrq+1;
edit1.Text:=datetimetostr(dqrq);
edit2.text:=formatdatetime('mm',dqrq );这样还可以避免28、30、31天月份的误差。
答：你的意思是不是当ComboBox1,ComboBox2选择不同的年月,Calendar随之变化?如果是对ComboBox1的onclick事件编程如下: :=c...详情>>
答：的意思是找不到指定的文件，你确定你的文件路径正确吗？ 另外，调用的部分你用 n(shcmd)试试详情>>
