delphi语言转为bcb语言的注意事项

delphi 转 bcb 常用语法转换及注意事项


----------------------------
delphi不区分大小写，bcb区分大小写
----------------------------
interger  转int
string  转String
----------------------------
if then  转if ()
else  转else
----------------------------
case  of  转switch ()
1:  转case 1:
 转break;
end  
----------------------------
for i=1 to 2 do  转for(int i=1; i<=2; i++)
----------------------------
while do  转while()
----------------------------
result  转return(立即返回)
----------------------------
inc(i)  转i++
dec(i)  转i--
----------------------------
动态数组aa
setlength(aa,6)  转aa.length=6;

----------------------------
create  转new
free  转delete
button1 is Tbutton  转button1->ClassNameIs("TButton")
Tbutton(button1)  转(TButton*)(button1)
----------------------------


.  转->
:=  转=
=  转==
<>  转!=
not  转!
and  转&&  &(运算)  //在if,while等判断语句中，大部分的情况都是&&或||
or  转||  |(运算) //在赋值语句中，大部分都是&或者|，特别是int类型的
'  转"  字符串操作
----------------------------
delphi to bcb消息转换的处理
对于必须要继承父类消息的子类来说，因为bcb严格支持c++的私有成员的可见性，所以对于delphi中很容易实现的消息继承，
对于bcb来说变成了不可能，必须通过父类的保护对象wndproc来进行消息的继承，而不是通过消息映射。
比如对窗体大小的改变的消息处理
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_WINDOWPOSCHANGED, TWMWindowPosMsg, WMWindowPosChanged)
    END_MESSAGE_MAP(Controls::TCustomControl)
因为无法继承父类的消息，所以对于运行中窗体大小的改变，将无法实现。解决的办法就是通过WndProc函数进行处理
class TBaseList : public Controls::TCustomControl
void __fastcall TBaseList::WndProc(Messages::TMessage &Message)
{
     TCustomControl::WndProc(Message);
     switch (Message.Msg)
     {
            case CM_DRAG:
                 doCMDrag(*(Controls::TCMDrag *)(&Message));  
            break;
            case WM_WINDOWPOSCHANGED:
                 doWindowPosChanged(Message);  
            break;
            case WM_LBUTTONDOWN:
                doWMLBUTTONDOWN(*(Messages::TWMMouse *)(&Message));
            break;
            case WM_KEYDOWN:
                doWMKeyDown(*(Messages::TWMKey *)(&Message));
            break;
            case CM_WANTSPECIALKEY:
                doCMWANTSPECIALKEY(*(Messages::TWMKey *)(&Message));
            break;
            case WM_KILLFOCUS:
                doWMKillFocus(*(Messages::TWMSetFocus *)(&Message));
            break;
            case CM_FONTCHANGED:
                doCMFontChanged(*(Messages::TMessage *)(&Message));
            break;
     }
}
void __fastcall TBaseList::doCMDrag(Controls::TCMDrag &Message)
void __fastcall TBaseList::doWMRBUTTONDOWN(Messages::TWMMouse &Message)

----------------------------


注意事项：
1，判断语句if (a=2)对应if (a==2)，最常见错误if (a=2)
2，与或运算a:=b or 1对应a=b | 1，最常见错误a=b||1
3，bcb中case每条都要有对应的break;
4，result在delphi中并不返回，但是bcb，return就立刻返回了，注意return放置的位置
5，delphi中同一单元中定义的类可以互相访问其它类的私有成员，但是bcb很严格，不可以
6, delphi中的整除用div，bcb中/的左右两边如果是整数就代表整除了，delphi中的/代表浮点数运算而bcb中则要强制转换，比如4/12在delphi和bcb中是不同的结果
7, 区域赋值的问题要注意lpRect.BottomRight的赋值是points[1] = Point(lpRect.Right, TreeRect.Bottom); 而不是points[1] = Point(TreeRect.Bottom, lpRect.Right);