如何生成多个同一线程的实例？

Question

好好研究一下delphi自己的例子.  Threads  ;在demos目录下,你会找到的.

Answer 1

var
    a,b:tMyThread;
begin
    a:=tMyThread.create(?);
    b:=tMyThread.create(?);
    ......
end;

Answer 2

“获取的数据满足一定条件时”是什么意思？当满足时，在线程A中CREATE线程B， 利用TEVEN实现线程的通信， B结束时就释放。procedure A.Execute;
  Event:=TEvent.Create(Nil,True,False,StopEvent);
  while not terminated do
  begin
    if Event.WaitFor(5)=wrSignaled then
      B1.terminate;
  end;
end;