为什么我的线程不执行?

Question

form1://启动线程(xc01)
bl_Thread:='kucun';
newThread1:=TThread1.create(false);
//线程单元unit xc01;interfaceuses
  Classes;type
  TThread1 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;implementationuses gotozhangtao,pinmingliebiao;procedure TThread1.Execute;
var
 xc01_1:string;
begin
FreeOnTerminate:=true;
if bl_Thread='kucun' then
   begin
     xc01_1:='Y';
     while xc01_1='Y' do
        begin
          pinmingliebiao_w.Find_thread;
        end;
   end;
end;end.

Answer 1

你的线程不是没执行，而是只执行了一次.在execute当中使用
while not Terminated do
  begin
    //
  end;

Answer 2

procedure TThread1.Execute;
var
 xc01_1:string;
begin
while not Terminated do
  begin
FreeOnTerminate:=true;
if bl_Thread='kucun' then
   begin
     xc01_1:='Y';
     while xc01_1='Y' do
        begin
          pinmingliebiao_w.Find_thread;
        end;
   end;
end;
end;