关于异或的问题,在线等 要求是按每个字节异或0X55请问对于double或其它多字节的,怎么用DELPHI表达式表示 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var D: Double; I: Int64;begin D := 1.5; I := PInt64(@D)^ xor $55; D := PDouble(@I)^; ShowMessage(FloatToStr(D));end;————————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。———————————————————————————————————— ╭ ╭──╮ ╮ ╰═@ @ ═╯ ╭oo │───╮ ╰╮ ─╯ ╞╮ │ ┌─╮ │╰= └└┘└└─┘ 比如是整型的话,可以 A: Integer; B := A xor $55555555; 帮我看看这几个字符代表什么? 请问如何做QQ挂机的程序? dbExpress的几个简单问题 Delphi中动态加载ActiveX控件显示不出来 求,word文件打印成彩色图片的方法 请大家推荐一些有关数据结构和软件工程方面的好书 公务员加薪了,一起来庆贺。 WWW.gmember.com 幽灵技术联盟 怎么把combobox的下拉列表设为当前电脑所存在的字体 在MDI中如何切换子窗口??? !!!!!!!!!!!!dbgrid的问题?????求解? 这条sql语句怎么写
D: Double;
I: Int64;
begin
D := 1.5;
I := PInt64(@D)^ xor $55;
D := PDouble(@I)^;
ShowMessage(FloatToStr(D));
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
╭ ╭──╮ ╮
╰═@ @ ═╯
╭oo │───╮
╰╮ ─╯ ╞╮
│ ┌─╮ │╰=
└└┘└└─┘
A: Integer; B := A xor $55555555;