No replies to this topic

[LuthfiHakim]

The following code sets the bit specified by AIndex of an integer value. Set means making the bit into 1.

procedure SetBit(var AValue: Integer; const AIndex: Integer);

begin

  AValue := AValue or (1 shl AIndex);

end;

The following code resets the bit specified by AIndex of an integer value. Reset means making the bit into 0.

procedure ResetBit(var AValue: Integer; const AIndex: Integer);

begin

  AValue := AValue and (not (1 shl AIndex));

end;