Question

delphi 我想让edit1每一秒钟输出 一个数 这个数是递减的 从二十开始 直到0 结束 求代码 谢谢

写成什么啊 帮下吧！！！

Answer 1

增加1个 TTimer组件在窗口FORM1上,自动命名为Timer1

设置Timer1 间隔值interval为1000 就是1秒
设置1个全局的变量
var Num:Integer;
在Form1 的事件 OnCreate双击，编写代码：
Num:=21;//初始化Num

在TTIMR 的事件 OnTimer双击，编写代码：
if Num>0 then begin
Num:=Num-1;//Num从21开始减1
Edit1.Text:=IntToStr(Num); //在EDIT1显示出数字
end;
========================
Delphi程序员技术交流QQ群139442，学习软件赚钱之道，技术发财门路条条通罗马！

Answer 2

晕！
直接用timer控件，timeout时间改为1秒，然后在事件中写相应代码就ok