Re: [fpc-pascal] Bit manipulation

Value and not (1 shl Bit); end; function SetBit(const Value: DWord; const Bit: Byte): DWord; begin Result := Value or (1 shl Bit); end; function EnableBit(const Value: DWord; const Bit: Byte; const TurnOn: Boolean): DWord; begin Result := (Value or (1 shl Bit)) xor (Integer(not Tur

Re: [fpc-pascal] Blockread and buffers

ble it after, but take care to not change the code and make the warning become true =] -- "Invente, Tente!!! FaÃa um cÃdigo eficiente" (Jonas Raoni) Jonas Raoni Soares Silva --- Desenvolvedor de aplicaÃÃes jonasraoni at gmail dot com http://w

Re: [fpc-pascal] Question about interfaces

( diff && ( offsetLeft = ( start + length ) % 8 ) ? ( rawData[ lastByte++ ] & ( ( 1 << offsetLeft ) - 1 ) ) << ( diff-- << 3 ) - offsetRight : 0 ); diff; sum += rawData[ lastByte++ ] << ( diff-- << 3 ) - offsetRight );