|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Prüfen ob Potenz von 2
2. Mär 2008, 16:14
Zitat von Hawkeye219:
Hallo,
versucht es einmal so:
Delphi-Quellcode:
function IsPowerOf2 (aValue: Cardinal) : Boolean;
begin
Result := (aValue = 0) or ((aValue and Pred(aValue)) = 0);
end;
Gruß Hawkeye Funktioniert zu 99%  Aber 2 hoch wie viel ist bitte 0 ? 
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|