Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Vielfaches von 2
24. Sep 2006, 13:26
Und noch eine Möglichkeit:
Delphi-Quellcode:
function IsEven(X: Integer): Boolean;
asm
and al, $1
not al
end;
(EDIT: Kleine Optmierung)
Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|