create函数以下部分,大家可以不看,一面妨碍各位大侠的思路

解决方案 »

  1.   

    ;     type 
                TBlockThread    =    Class(TServerClientThread) 
                private 
                      adoquery:taoquery;
                        procedure        InitThread; 
                public 
                        
                        procedure    clientExecute;    override; 
                        procedure    DoTerminate;    override; 
                        constructor    Create(CreateSuspended:    Boolean;  sock:              TServerClientWinSocket); 
                        destructor    Destroy;    override; 
                end
      

  2.   

    对不起,我写的太乱了,因为我的头和上面一样乱。
    TBlockThread        =        Class(TServerClientThread)  
                            private  
                                        adoquery:tadoquery;                                         constructor        Create(CreateSuspended:        Boolean;    sock:                            TServerClientWinSocket);  
                                            destructor        Destroy;        override;  
                            end