首页
社区
课程
招聘
[已解决] [悬赏]请教,程序2错在哪里 10.00雪花
发表于: 2017-4-24 17:27 2575

[已解决] [悬赏]请教,程序2错在哪里 10.00雪花

2017-4-24 17:27
2575
写了2个异或的小程序,但不知怎么回事,用相同的整数如: 548B3A83  xor  FC4462DE,结果是:A8CF585D;另一程序是在"Edit1.Text"文本框输入548B3A83与FC4462DE异或,得到的结果是:FD72471A.两个结果相差很大,而且每次在"Edit1.Text"文本框输入548B3A83与FC4462DE异或,得到的结果有时还不一样,

不知异或2的程序错在什么地方,怎么解决,贴上代码和附件,请教大师指出错误的地方,写出代码更好,在此先谢了.

异或1

procedure TForm1.Button1Click(Sender: TObject);

var

   x,y,z :Integer;

begin

   x:= $548B3A83;

   y:= $FC4462DE;

   z:= x xor y;

   ShowMessageFmt('%x',[z]);//结果:A8CF585D

=============================================

异或2

procedure TForm1.Button1Click(Sender: TObject);

var

 

  x,y,z:Integer;

begin

  x:=integer(edit1.Text);

  y:=$FC4462DE;

  z:=x xor y;

  ShowMessageFmt('%x',[z]);//结果:FD72471A

end;

 



[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

上传的附件:
收藏
免费 0
支持
分享
最新回复 (8)
雪    币: 1176
活跃值: (1264)
能力值: ( LV12,RANK:380 )
在线值:
发帖
回帖
粉丝
2
因为你给的是一个地址    所以它是随机的    楼主给钱吧  哈哈 
2017-4-24 19:35
0
雪    币: 1176
活跃值: (1264)
能力值: ( LV12,RANK:380 )
在线值:
发帖
回帖
粉丝
3

gif:

好像多了个0X 但不影响原意
2017-4-24 19:51
0
雪    币: 5954
活跃值: (46)
能力值: ( LV4,RANK:140 )
在线值:
发帖
回帖
粉丝
4
楼上正解
x:=integer(edit1.Text);  返回的是指向字符串的指针,并不是整数
我对  Delphi  不是很熟悉,具体怎么改就不知道了。
2017-4-24 21:30
0
雪    币: 6673
活跃值: (4113)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5

从网上看到的

x:=StrToInt(edit1.Text);

2017-4-24 22:24
0
雪    币: 47147
活跃值: (20405)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
6
Tennn GIF:https://cloud.githubusercontent.com/assets/16742566/25335689/ac89529e-2926-11e7-82a3-cf992e18e40 ...
问题修复,附件现可上传了
2017-4-24 22:31
0
雪    币: 1176
活跃值: (1264)
能力值: ( LV12,RANK:380 )
在线值:
发帖
回帖
粉丝
7
好了  貌似页面兼容性不太好    还有就是和反广告插件也不兼容   
2017-4-24 22:38
0
雪    币: 124
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
谢谢Tennn,在你的提示下,已经解决了,现在就结贴.
2017-4-24 23:49
0
雪    币: 124
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
同时谢谢4、5、6楼的Lnairan、厉害了我的谁、版主kanxue先生。
2017-4-25 00:02
0
游客
登录 | 注册 方可回帖
返回
//