各位高手，请教一个问题，望不吝赐教

Question

如果用TIMER，我认为可以不用线程来做了。就放在主线程就可以了。

Answer 1

例子：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  dThread=class(tthread)
    public
      procedure execute;   //执行
  end;  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  fThread:dThread;   //实例化implementation{$R *.dfm}
procedure dThread.execute;
begin
  if ...... then 执行操作;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  fThread:=dThread.Create(True);end;procedure tform1.pausebuttonclick(sender:tobject)
begin
  fThread.suspend;  //暂停
end;procedure tform1.ReSumebuttonclick(sender:tobject)
begin
  fThread.Resume;  //继续
end;procedure tform1.StopButtonclick(sender:tobject)
begin
  fThread.Terminate; //停止
end;end.