Are you delphi pointer pro?

[siim]

This is not about pointers, but ...
Exrecise no 2:

procedure TForm1.Button6Click(Sender: TObject);
var
  a, b: Integer;
begin
  a := 345;
  b := 7690;
  ShowMessage(IntToStr(a)+':'+IntToStr(b));  // 1
  a := a xor b;
  b := b xor a;
  a := a xor b;
  ShowMessage(IntToStr(a)+':'+IntToStr(b));  // 2
  a := a + b;
  b := a - b;
  a := a - b;
  ShowMessage(IntToStr(a)+':'+IntToStr(b));  // 3
end;

Siim