一个很古老的问题的新问法

Question

将两个变量的值对换,但不能使用第三个变量辅助.
各位大虾,发挥本领的时候到了.

Answer 1

这样行吗(只适String);
var
  aa, bb:string;
begin
  aa := '111';
  bb := '222';
  aa := aa + ';' + bb;
  bb := Copy(aa, 1, Pos(';', aa) - 1);
  aa := Copy(aa, Pos(';', aa) + 1, Maxint);
end;

Answer 2

适所有数值型
var
  aa, bb:real;
begin
  aa := 111;
  bb := 222;
  aa := aa + bb;
  bb := aa - bb;
  aa := aa - bb;
end;

Answer 3

适所有布尔型（哈哈）
var
  aa, bb:boolean;
begin
  aa := True;
  bb := False;
  aa := not aa;
  bb := not bb;
end;