16,748
社区成员
发帖
与我相关
我的任务
分享
tmp:= a;
a:= b;
b:= tmp;
procedure TFrmMain.Button5Click(Sender: TObject);
var
a,b:integer;
begin
a := 1;
b := 2;
a := a + b;
b := a - b;
a := a - b;
showmessage(inttostr(a));
showmessage(inttostr(b));
end;
var
a,b:integer;
begin
a := 1;
b := 2;
a := a xor b;
b := b xor a;
a := a xor b;
end;