用BCB，觉着自己像个太监

用BCB，觉得自己像个太监！
没找到Delphi开发的工作，一公司招人，说是用D和BCB开发，结果大部份都是BCB。觉得自己像个太监，不论不类！

------解决方案--------------------
楼主说自己是个太监，那就是个太监了；用C++BUILDER的程序员，不能正常阅读VCL源码，不能在需要的时候重构某一个VCL类，真是需要再努力了。

C/C++ code



const int iOptmzSpinCount = 6000;               // 优化临界区循环值
//---------------------------------------

class TCriticalSectionPro
{
private:
    int FSpinCount;
    int FProcessorNum;
protected:
    TRTLCriticalSection FSection;
    void __fastcall SetSpinCount(int SpinCount);
public:
    __fastcall TCriticalSectionPro(int SpinCount=iOptmzSpinCount);
    __fastcall ~TCriticalSectionPro(void);

    void __fastcall Acquire(void){EnterCriticalSection(&FSection);}
    void __fastcall Release(void){LeaveCriticalSection(&FSection);}
    void __fastcall Enter(void){Acquire();}
    void __fastcall Leave(void){Release();}
    bool __fastcall TryEnter(void){return TryAcquire();}
    bool __fastcall TryAcquire(void) {return TryEnterCriticalSection(&FSection);}

    __property int ProcessorNum = {read=FProcessorNum};
    __property int SpinCount = {read=FSpinCount, write=SetSpinCount};
};
//---------------------------------------

class TThreadListPro
{
private:
    volatile int FCount;
    TList *FList;
    TCriticalSectionPro *FCriticalSection;
protected:
    int __fastcall GetCapacity(void);
    int __fastcall SetCapacity(int Value);
    void __fastcall Lock(void){FCriticalSection->Acquire();}
    void __fastcall Unlock(void){FCriticalSection->Release();}
public:
    __fastcall TThreadListPro(void);
    __fastcall ~TThreadListPro(void);

    void __fastcall UnlockList(void){Unlock();}
    TList* __fastcall LockList(void){Lock();return FList;}

    int __fastcall Add(void *Item);                  // 返回加入项在列表的当前索引
    int __fastcall Remove(void *Item);               // 如成功则返回被删除项在列表的旧索引，不成功返回-1
    int __fastcall IndexOf(void *Item);              // 如果不存在返回-1

    void __fastcall Pack(void);
    void __fastcall Clear(void);
    void __fastcall Delete(int Index);
    void __fastcall Insert(int Index, void *Item);
    void __fastcall Sort(TListSortCompare Compare);
    void __fastcall Move(int CurIndex, int NewIndex);

    void * __fastcall Last(void);                    // 如果未成功，返回NULL。
    void * __fastcall First(void);                   // 如果未成功，返回NULL。
    void * __fastcall RemoveFirst(void);             // 如果未成功，返回NULL。
    void * __fastcall RemoveLast(void);              // 如果未成功，返回NULL。

    __property int Count = {read=FCount};
    __property int Capacity = {read=GetCapacity, write=SetCapacity};
};
//---------------------------------------

class THandleThread : public TThread
{
private:
    friend LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);
protected:
    MSG FMsg;                                        //消息结构
    HWND FWndHandle;                                 //窗口句柄(HWND = void *)
    virtual void __fastcall Execute(void);           //在TThread类定义为纯虚函数
    virtual void __fastcall CreateObject(void);      //在此函数里利用AllocateHWnd建立窗口句柄
    virtual void __fastcall DestroyObject(void);     //在此函数里利用DestroyWindow释放窗口句柄
    virtual void __fastcall WndProc(TMessage &Message);
public:
    __fastcall THandleThread(bool CreateSuspended);
    __property HWND WndHandle = {read=FWndHandle, default=NULL};
};

HWND __fastcall AllocateHWnd(THandleThread *Sender);     //为THandleThread建立窗口句柄
//---------------------------------------

用BCB，觉着自己像个太监

相关推荐