Code:

function IsBitSet(Value: cardinal; BitNum : byte): boolean;

{©Drkb v.3(2007): www.drkb.ru}

begin

result:=((Value shr BitNum) and1) = 1

end;

...

if IsBitSet(43691,1) then//установлен (равен 1)

Code:

function GetBitStat(SetWord, BitNum: Word): Boolean;

begin

GetBitStat := SetWord and BitNum = BitNum { Если бит установлен }

end;

Code:

unit BitsForm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

Edit1: TEdit;

UpDown1: TUpDown;

procedure Edit1Change(Sender: TObject);

procedure CheckBoxClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

function IsBitOn (Value: Integer; Bit: Byte): Boolean;

begin

Result := (Value and (1shl Bit)) <> 0;

end;

function TurnBitOn (Value: Integer; Bit: Byte): Integer;

begin

Result := Value or (1shl Bit);

end;

function TurnBitOff (Value: Integer; Bit: Byte): Integer;

begin

Result := Value andnot (1shl Bit);

end;

procedure TForm1.Edit1Change(Sender: TObject);

var

I: Integer;

CheckBox: TCheckBox;

begin

for I := 1to5do

begin

Checkbox := FindComponent (

'Checkbox' + IntToStr (I)) as TCheckbox;

CheckBox.Checked :=

IsBitOn (UpDown1.Position, CheckBox.Tag);

end;

end;

procedure TForm1.CheckBoxClick(Sender: TObject);

var

Val: Integer;

begin

Val := UpDown1.Position;

with Sender as TCheckBox do

if Checked then

Val := TurnBitOn (Val, Tag)

else

Val := TurnBitOff (Val, Tag);

UpDown1.Position := Val;

end;

end. 

Code:

unit BitsForm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

Edit1: TEdit;

procedure CheckBoxClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

MyBits: TBits;

procedure UpdateEdit;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

uses

Math;

procedure TForm1.UpdateEdit;

var

I, Total: Integer;

begin

Total := 0;

for I := 0to4do

if MyBits.Bits [I] then

Total := Total + Round (Power (2, I));

Edit1.Text := IntToStr (Total);

end;

procedure TForm1.CheckBoxClick(Sender: TObject);

begin

MyBits.Bits [(Sender as TCheckBox).Tag] :=

not MyBits.Bits [(Sender as TCheckBox).Tag];

UpdateEdit;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

MyBits := TBits.Create;

MyBits.Size := 5;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

MyBits.Free;

end;

end.