Prüfen ob Potenz von 2

[Hawkeye219]

Hallo,

versucht es einmal so:

Delphi-Quellcode:

function IsPowerOf2 (aValue: Cardinal) : Boolean;
begin
  Result := (aValue <> 0) and ((aValue and Pred(aValue)) = 0);
end;

Gruß Hawkeye