请大家帮小弟我把delphi的运算转换成BCB
请大家帮我把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开始
------解决方案--------------------
大概是这个样子
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 )
);