CSDN很热情,但是D版不是很热情……
话说你的问题是什么?……

解决方案 »

  1.   

    //执行我的线程操作代码 
    procedure TMainThread.MyExecuteOprate; 
    var 
      nc:integer; 
    begin 
      FreeOnTerminate:=true; 
      nc:=_Value; 
      if(nc <>-1) then 
      begin 
        SsmPickup(nc);//摘机 
    Sleep(1000); 
    transaction(nc);//交易处理函数 
        Sleep(1000); 
    SsmHangup(nc);//挂机 
      end; 
      TemThread.Terminate; //这是干吗的?
    end; 
      

  2.   

    对于一个线程对象,先应该处于等待任务的状态,即Susppend状态,然后外部可以将一个任务交给它,比如调用一个SetWorker方法来设置_Value,并设置IsBusy:=True,然后Resume让它执行,当Execute当中执行完那个处理过程,先设置IsBusy:=False,再调用Suspend就进入Suspended状态又变成空闲的...