Question

我想编一个delphi程序使按按钮后edit1中1-100循环（0.1）秒一个再按按钮停止 怎么做

Answer 1

var
curi:integer;

procedure TForm1.Timer1OnTimer(Sender:TObject);
begin
Inc(curi);
if curi>100 then curi:=1;
Edit1.Text := IntToStr(curi);
end;

procedure TForm1.Button1OnClick(Sender:TObject);
begin
if not Timer1.Enabled then begin
curi := 0; // 初始化
Timer1.Interval := 100; // 0.1秒
Timer1.Enabled := True;
end else
Timer1.Enabled := False; // 关闭
end;

Answer 2

用一个timer控件。
按钮控制 enable true 还是 false （开始、停止）
timer 间隔设置成0.1秒。
全局变量控制 100次没有按停止，自动停止。
-------------------------------------
希望对你有帮助。

Answer 3

用timer做！很简单的！

Answer 4

你要是不用 TIMER做 就得扔到线程里面做了。