procedure TTestThread.execute;
begin
  FreeOnTerminate := True;
  while not Terminated do
  begin
    s := getSomething(xxx);
// remove this    if (s is something) then break;
  end;
end;

引言:还是不行。我将程序改为 procedure TTestThread.execute; begin FreeOnTerminate := True; while not Terminated do begin s := getSomething(xxx); end; messagebox(0, 'Hello', '', MB_OK); end; 我发现信息无法显示出来

引言:那句是用来判断s是否某些特定的字符串，如果是则终止绪。不过我已经将那句去了，还是不行。问题一定出在s := getSomething(xxx);上。当我去掉这一句，一切正常。而getSomething(xxx);是另一个类的函数，主要功能是从文件中读取一个大字符串然后返回一个特定的串。

引言: procedure TTestThread.execute; begin FreeOnTerminate := True; while not Terminated do begin s := getSomething(xxx); end; messagebox(0, 'Hello', '', MB_OK); end; 绪一定是被终止了，因为messagebox(0, 'Hello', '', MB_OK);无法到达。而getSomething(xxx)里有一段读取文件的程序。即使去掉getSomething，换成sleep(1000)，问题依旧

procedure TTestThread.execute;
begin 
    FreeOnTerminate := True; 
    while not Terminated do begin
        try
            s := getSomething(xxx);
        except
            on E:Exception do begin
                ShowMessage(E.Message);
                Terminate;
            end;
        end;
    end;
    messagebox(0, 'Hello', '', MB_OK);
end;
{...}
TestThread := TTestThread.Create(False); // False.. no need to suspend

引言:也不行。没有任何的exception

procedure TTestThread.execute;
var
    HH,MM,SS,MS: word;
begin
    FreeOnTerminate := True;
    ShowMessage('Begin');
    while not Terminated do begin
        try
            s := getSomething(xxx);
            DecodeTime(Now,HH,MM,SS,MS);
            if SS=0 then
                ShowMessage('Running');
        except
            on E:Exception do begin
                ShowMessage(E.Message);
                Terminate;
            end;
        end;
    end;
    ShowMessage('End');
end;

引言: 又发现问题。如果在调用Thread时加入这些代码 try TestThread := TTestThread.Create(False); finally TestThread.Destroy; end; 则上例中给出的'Begin' 'Running' 和 ‘End'都不见了，完全没有输出也没有Exception。如果不加这个try..finally，则当该绪完成结束后。下次再生成另一个TestThread时，系统报错：Read Address ... Error

The example above will kill the thread immediately after it is created. Hence no message box. Try this:

try
  TestThread := TTestThread.Create(False);
  repeat
      Application.ProcessMessages;
  until TestThread.Terminated;
finally
  TestThread.Destroy;
end;    procedure TTestThread.execute;
begin
    FreeOnTerminate := True;
    while not Terminated do begin
        s := getSomething(xxx);
        if (s is something) then Terminate;
        sleep(100);
    end;
end;

However I think it is better to send a custom message in the thread to notify the main form instead of polling in the main form.

引言: 另外我想问，我们某个函数中生成上述的Thread并执行。请问怎样使主函数才能等到Thread完成或结束后再继续以后的操作？ 即， procedure TestThread; var TestThread TTestThread; begin TestThread := TTestThread.Create(False); (* How can I wait till TestThread is finish before the followin code is run *) ... ... end;

引言:

procedure TTestThread.execute;
begin    
  FreeOnTerminate := True;    
  while not Terminated do 
  begin        
    try            
      s := getSomething(xxx);            
      if s=0 then                
        terminate;   
    except            
      on E:Exception do begin                
        ShowMessage(E.Message);                
        Terminate;            
    end;        
  end;    
end; 

就这样。应该有终止吧

procedure TTestThread.execute;
begin    
  FreeOnTerminate := True;    
  while not Terminated do 
  begin        
    try            
      s := getSomething(xxx);            
      if s=0 then                
        terminate;   
      sleep(5000); // test OnTermiante
      Terminate;
    except            
      on E:Exception do begin                
        ShowMessage(E.Message);                
        Terminate;            
    end;        
  end;    
end; 

引言: procedure TTestThread.execute; begin FreeOnTerminate := True; while not Terminated do begin try s := getSomething(xxx); if s=0 then terminate; sleep(5000); // test OnTermiante Terminate; except on E:Exception do begin ShowMessage(E.Message); Terminate; end; end; end;

引言:还是不行。真的够头痛。另外，getSomething是另一个接口类的method，怎样利用WaitFOR?

引言:OnTerminate只有 Messagebox(0, 'terminated', '', MB_OK);

引言: function MyDLL_OnStart : Integer; stdcall; var wait :TTestThread; begin wait := TTestThread.create(True); // TestObj.doSomething 是一个事件函数，当Thread终止时触发 wait.OnTerminate := TestObj.doSomething; wait.Resume; Result := 0; end;

引言:William, 改成Resume后仍是不行。但很奇怪，我将程序的terminate改成DoTerminate后就OK了。请问两者有何区别？