Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: zweitkleinste Informaionseinheit

    Delphi
    by MaBuSE, 7. Feb 2005
  uses Math;
  ...
  // n=0 für das rechte Bit, n=7 für das linke Bit
  function getBit(Zahl, Bit: Integer):Boolean;
  begin
  Result := Zahl and Round(IntPower(2, Bit)) = Round(IntPower(2, Bit));
  end;
  
  Diese Funktion ist nicht so performant wie die von Mütze(wegen den Round und IntPower), aber das Prinzip das dahintersteht ist einfach:
  Result := Zahl and 1 = 1; // True, wenn 1. Bit gesetzt ist