13,825
社区成员
发帖
与我相关
我的任务
分享
Caption =IntToStr(
(StrToInt ("0x"+Edit3->Text.SubString(1,2)) && StrToInt("0x1") << 4) +
(StrToInt("0x"+(Edit3->Text.SubString(3,2))) && StrToInt("0xe0")>>5 )
);
Edit15->Text = IntToStr(
(StrToInt("$" + Edit3->Text.SubString(1, 2)) & StrToInt("$1") << 4)
+
(StrToInt("$" + Edit3->Text.SubString(3, 2)) & StrToInt("$e0") >> 5)
)