我在书中看到一句程序不明?请大家帮忙!!! a为int64型, 为什么会出现a:=a or (1 shl I)??

[qqh1980]

下面程序中a为int64型,为什么会出现a:=a or (1 shl I);,它是什么意思?结果又是什么??
procedure TUserManageForm.BitBtn3Click(Sender: TObject);
var i: integer; a: int64;
begin
a := 0;
for i := 0 to qx.Items.Count - 1 do
if qx.Checked[i] then
a := a or (1 shl i); //这句是什么意思?结果又是什么??
a := a shl 10;
a := a xor 1234567890;
if adodm.tuser.Locate('用户编号', intptr(man.Selected.Data^).id, []) then
begin
adodm.tuser.Edit;
adodm.tuser.FieldByName('用户权限').Asstring := inttostr(a);
adodm.tuser.Post;
intptr(man.Selected.Data^).qx := a;
end
else
showmessage('没有找到,请重新输入!');
end;

[yzykjh]

//shl 是逻辑操作中的左移操作
//(1 shl i) i左移1位

[hiflower]

看看帮助，or 也有 bitwisw or 的功能，对整数进行按位“或”

[chenkandy]

a or (1 shl i);
意思是:
先用i 進行邏輯左移動一位作業
再用得到的值和a 逕行或運算.
作業過程自動轉為2進值逕行的