-
-
[已解决]
[悬赏]请教,程序2错在哪里
10.00雪花
-
发表于:
2017-4-24 17:27
2575
-
[已解决] [悬赏]请教,程序2错在哪里
10.00雪花
写了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;
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!