W wr960204 Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-16 #2 例如B等A的第X位和1做XOR var A,B:Integer; begin A := $100; B := A xor (1 shl (x-1)); end;
