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

Function IstZweierPotenz(i : Integer) : Boolean;
var
  a : Integer;
begin
  a := 1;
  while a < i do  a:= a shl 1;
  Result := (a = i);
end;                    

1:
2:
3:
4:
5:

Function IstZweierPotenz(i : Integer) : Boolean;
begin
  while (not Odd(i)) and (i > 1) do i := i shr 1; // while (i mod 2 = 0) and (i > 1) do i := i shr 1; Was da schneller ist, weiß ich nicht
  result := (i = 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:
32:
33:
34:
35:

function IsPowerOfTwo(Number:Integer): Boolean;

    function BitCount(const Number: DWORD; const Count:Byte): Byte;
    var
        Temp1:DWORD;
        Temp2:DWORD;
        Mask: DWORD;
        CntHalf:Byte;
    Begin
        If Count = 1 Then
        Begin
            Result := Number and 1;
            Exit;
        end;

        CntHalf := Count shr 1;
        Mask := 1 shl CntHalf - 1;

        Temp1 := Number and Mask;
        Temp2 := (Number shr CntHalf) and Mask;

        If Temp1 <> 0 Then
            Result := BitCount(Temp1, CntHalf)
        else
            Result := 0;

        If Result > 1 Then Exit;

        If Temp2 <> 0 Then
            Result := Result + BitCount(Temp2, CntHalf);
    end;

begin
    Result := BitCount(Number, 32) = 1;
end;                    

1:

if Frac(Log2(Zahl))=0 then <Zahl ist Zweierpotenz>;                    

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

function IsPowerOfTwo(A: DWORD): boolean;
asm
             test eax, eax
             jz   @@end
  @@loop:    shl  eax, 1
             jo   @@testit
             jmp  @@loop
  @@testit:  shl  eax, 1
             jz   @@true
             xor  al, al
             jmp  @@end
  @@true:    mov  al, 1
  @@end:
end;                    

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

function IsPowerOfTwo(A: DWORD): boolean;
asm
             test eax, eax  // 2
             jz   @@end     // 2
  @@loop:    shl  eax, 1    // 2
             jno  @@loop    // 2
             shl  eax, 1    // 2
             setz al        // 3
  @@end:
end;                        // 1                    

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:
32:

Type
    TBigNumber = Array of Byte;

Function IsPowerOfTwo(const Number: TBigNumber): Boolean;
asm
    PUSH    EDI
    LEA     EDI, DWORD PTR [Number]
    MOV     ECX, DWORD PTR [EDI-$04]

    XOR     EAX, EAX
    REPZ    SCASB
    JZ      @@FinishFalse

    MOVZX   EAX, BYTE PTR [EDI-$01]

@@Loop:
    SHL     EAX, 1
    JNO     @@Loop

    SHL     EAX, 1
    JNZ     @@FinishFalse

    REPZ    SCASB
    SETZ    AL
    JMP     @@Finish

@@FinishFalse:
    XOR     EAX, EAX

@@Finish:
    POP     EDI
end;                    

1:
2:
3:
4:

function IsPowerOfTwo(d : dword) : boolean;
begin
  Result := (d>0) and (d and (d - 1) = 0);
end;                    

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

function IsPowerOfTwo(Const Value : DWORD) : Boolean;
asm
    TEST EAX, EAX
    JZ @@FinishZ

    MOV EDX, EAX
    DEC EDX

    TEST EAX, EDX

    SETZ AL
    OR AL, AL
@@FinishZ:
    SETNZ AL
end;                    

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

function IsPowerOfTwo(const Value: DWORD) : Boolean;
asm
      TEST EAX, EAX
      JZ @@done

      MOV EDX, EAX
      DEC EDX
   // oder:
   //   LEA EDX, [EAX-1]

      TEST EAX, EDX

      SETZ AL
  @@done:
end;                    

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

{$W-} //Stackframes abschalten!

function IsPowerOfTwo(const Value: DWORD) : Boolean; register; assembler;
asm
    TEST EAX, EAX
    RETZ

    LEA EDX, [EAX-1]
    TEST EAX, EDX
    SETZ AL
end;                    

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

function IsPowerOfTwo(const Value: DWORD) : Boolean; register; assembler;
asm
    TEST EAX, EAX
    JZ @@Done

    LEA EDX, [EAX-1]
    TEST EAX, EDX
    SETZ AL
@@Done:
end;