1:
2:
3:
4:
5:

Input:                      1011001

Negiert:                    0100110
Zu veränderte Stellen:      0010100
UND-Verknüpft:              1001101					

1:
2:

76543210 xor ((not 76543210) and 00010010) =
76543210 xor (000~400~10) = ...					

1:

function SwapBits(Value: Cardinal; const BitX, BitY: Byte): Cardinal;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure SwapBits(var Value: Cardinal; const BitX, BitY: Byte);
var
  Maske: Integer;
  Temp: Integer;
begin
  Maske := (1 shl BitX) or (1 shl BitY);
  Temp := (Value and Maske);
  if (Temp <> 0) and (Temp <> Maske)
  then Value := Value xor Maske;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function SwapBits(Value: Cardinal; const BitX, BitY: Byte): Cardinal;
var
    Mask1, Mask2: Cardinal;
    Mask1set, Mask2set: Boolean;
begin
    Mask1 := 1 shl BitX;
    Mask2 := 1 shl BitX;
    Mask1set := 0 <> Value and Mask1;
    Mask2set := 0 <> Value and Mask2;
    Result := (Value and (not (Mask1 or Mask2))) or 
        (Ord(Mask1Set) * Mask2) or
        (Ord(Mask2Set) * Mask1);
ene;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function SwapBits(Value: Cardinal; const BitX, BitY: Byte): Cardinal;
var
    Mask1, Mask2: Cardinal;
    Mask1set, Mask2set: Boolean;
begin
    Mask1 := 1 shl BitX;
    Mask2 := 1 shl BitY;
    Mask1set := 0 <> Value and Mask1;
    Mask2set := 0 <> Value and Mask2;
    Result := (Value and (not (Mask1 or Mask2))) or 
        (-Ord(Mask1Set) and Mask2) or
        (-Ord(Mask2Set) and Mask1);
ene;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

uint32_t SwapBits(uint32_t Value, uint8_t BitX, uint8_t BitY) {
    uint32_t Mask1, Mask2;
    uint32_t Mask1set, Mask2set;

    Mask1 := 1 << BitX;
    Mask2 := 1 << BitY;
    Mask1set := -!(Value & Mask1);
    Mask2set := -!(Value & Mask2);
    Result := (Value & ~(Mask1 | Mask2)) | 
        (~Mask1Set & Mask2) | (~Mask2Set & Mask1);
}					

1:

Bit = ( (Value >> BitX) XOR (Value >> BitY) ) AND 1					

1:

NewValue = Value XOR ( (1 << BitX) OR (1 << BitY) )					

1:
2:

Bit = ( (Value >> BitX) XOR (Value >> BitY) ) AND 1;
NewValue = Value XOR ( (Bit << BitX) OR (Bit << BitY) )					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function SwapBits2(Value: Cardinal; const BitX, BitY: Byte): Cardinal;
var
    Mask : Cardinal;
begin
  result := value;
  IF BitX <> BitY then
    begin
    Mask := 1 shl BitX OR 1 shl BitY;
    value := value AND Mask; //value mal kurz anders verwendet
    //Bits der Position BitX/BitY unterscheiden sich 
    IF (value <> 0) AND (value <> Mask) then
      Result := Result XOR Mask;
    end;
end;					

1:
2:
3:
4:
5:

procedure SwapBits(var Value: Cardinal; const BitX, BitY: Byte);
begin
  if ( ( (Value shr BitX) XOR (Value shr BitY) ) AND 1 ) <> 0 then
    Value := Value XOR ( (1 shl BitX) OR (1 shl BitY) );
end;					

1:
2:
3:
4:

procedure SwapBits(var Value: Cardinal; const BitX, BitY: Byte);
begin
    Value := Value XOR ( ((1 shl BitX) OR (1 shl BitY)) * ( ((Value shr BitX) XOR (Value shr BitY)) AND 1 ) ) ;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure SwapBits(var Value: Cardinal; Maske: Cardinal); overload;
var
  Temp: Cardinal;
begin
  Temp := (Value and Maske);
  if (Temp <> 0) and (Temp <> Maske)
  then Value := Value xor Maske;
end;

var
  Masks01: array[0..3] of Cardinal = (
    $00000084
  , $00008400
  , $00840000
  , $84000000
  );

procedure SwapMasks(var Value: Cardinal; const Masks: array of Cardinal);
var
  i: Integer;
begin
  for i := 0 to High(Masks) do SwapBits( Value, Masks[i] );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Value: Cardinal;
begin
  Value := $F0F0F0F0;
  SwapMasks( Value, Masks01 );
end;