多线程

Question

如果我按10次btn1，会产生多少个线程？  
Read: TThread;是全局变量
procedure TForm1.btn1Click(Sender: TObject);
begin
  if Read<>nil Then
    Read.Resume
  else
    Read:=TThread.Create(false);
end;如果我按10次btn1，会产生多少个线程？  
procedure TForm1.btn1Click(Sender: TObject);
var
  Read: TThread;
begin
  if Read<>nil Then
    Read.Resume
  else
    Read:=TThread.Create(false);
end;
分别产生多少个线程

Answer 1

若Read是全局变量，产生1个线程若是下面的代码，产生10个线程。

Answer 2

楼主的代码明显的错误
if Read<>nil Then
  Read.Resume
  else
这句弄不好就程序就出错了TThread 只是一个线程类，并不是线程，使用Resume前要先判断下线程状态才能使用 Resume

Answer 3

我说的意思是
TThread 对象还在，里边的线程并不一定还在