Z zqw0117 Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-17 #2 var a,b,c: Byte; begin a := 10; b := 20; c := a xor b; ShowMessage(IntToStr(c xor a)); ShowMessage(IntToStr(c xor b)); end;
var a,b,c: Byte; begin a := 10; b := 20; c := a xor b; ShowMessage(IntToStr(c xor a)); ShowMessage(IntToStr(c xor b)); end;