...让我迷茫的线程,如何处理线程结束问题.....
procedure sms_thread.Execute;
var s:string;
begin
freeonterminate:=true;
s:=dm1.sms_check(); //执行一个函数
if terminated then exit;
end;
调用该线程
procedure TForm1.Button1Click(Sender: TObject);
begin
temp:=1;
while temp=1 do
begin
thred.sms_thread.Create(false); //创建线程
thred.sms_thread.onOermminate:=threadDone;//这里出错了,我不知道该怎么办
end;
这个程序是要用来检查数据库是否有变化的,需要不停的执行sms_check()函数,所以我才想到用线程来调用它,但程序运行时老出错,我刚学的delphi,请各位大哥指教!!!
end;