读书人

请大家帮小弟我把delphi的运算转换成B

发布时间: 2012-10-21 09:00:07 作者: rapoo

请大家帮我把delphi的运算转换成BCB,
edit15.Text:=inttostr( (strtoint('$'+copy(edit3.Text,1,2))and strtoint('$1')shl 4)
+ (strtoint('$'+copy(edit3.Text,3,2))and strtoint('$e0')shr 5))

另问,DelPhi字符串索引是从0开始还是1开始

[解决办法]
大概是这个样子

C/C++ code
Edit15->Text = IntToStr((StrToInt("$" + Edit3->Text.SubString(1, 2)) & StrToInt("$1") << 4)+(StrToInt("$" + Edit3->Text.SubString(3, 2)) & StrToInt("$e0") >> 5))
[解决办法]
括弧太多了,看的眼都画了,比较下结果看对比
C/C++ code
Caption =IntToStr(             (StrToInt ("0x"+Edit3->Text.SubString(1,2)) && StrToInt("0x1") << 4)  +             (StrToInt("0x"+(Edit3->Text.SubString(3,2))) && StrToInt("0xe0")>>5 )             ); 

读书人网 >C++ Builder

热点推荐