delphi 位运算 not and or xor shl shr

procedure TForm1.Button1Click(Sender: TObject);
var
a: Word;
c: Integer;
begin
a := 6; //0000 0000 0000 0000 0000 0000 0000 0110
c := 12; //0000 0000 0000 0000 0000 0000 0000 1100 四字节 32 位
ShowMessage(IntToStr( a and c));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
a, b: Word;
// a, b: Integer;
begin
a := 6;
b := 12;
ShowMessage(IntToStr(a and b));

//无符号：
// byte : 一个字节 8位 2的8次方 0-255 (2的8次方-1)
// word : 两个字节 16位 2的16次方 0-256256 (65535)
// longword: 四个字节 32 2的32次方 0-6553665536 (4294967295)
//
//有符号：(拿出一位做符号位，表示正负)
//shortint 一个字节 8位 2的8次方 -127-127 (256/2)
//smallint 两个字节 16位 2的16次方 -32767-32767 (256*256/2)
//longint(Ingetger) 四个字节32位 2的32次方 -2147483647-2147483647 (4294967295/2)
end;

//not
//1 -> 0 , 0 -> 1
procedure TForm1.Button3Click(Sender: TObject);
var
a: Word;
begin
a := 14; // 0000 0000 0000 1110
ShowMessage(IntToStr(not a)); //65521 not-> 1111 1111 1111 0001
end;

//and
//都是1才1
procedure TForm1.Button4Click(Sender: TObject);
var
a, b: Word;
begin
a := 14; // 0000 0000 0000 1110
b := 23; // 0000 0000 0001 0111
ShowMessage(IntToStr(a and b));//6 and->0000 0000 0000 0110
end;

//or
//位 有1则1
procedure TForm1.Button5Click(Sender: TObject);
var
a, b: Word;
begin
a := 14; // 0000 0000 0000 1110
b := 23; // 0000 0000 0001 0111
ShowMessage(IntToStr(a or b));//31 and->0000 0000 0001 1111
end;

//xor
//位不相同1
procedure TForm1.Button6Click(Sender: TObject);
var
a, b: Word;
begin
a := 14; // 0000 0000 0000 1110
b := 23; // 0000 0000 0001 0111
ShowMessage(IntToStr(a xor b));//25 and->0000 0000 0001 1001
end;

//shl
//说明：左移 右边补0 (超出忽略)
procedure TForm1.Button7Click(Sender: TObject);
var
a: Word;
b: Byte;
begin
a := 14; // 0000 0000 0000 1110
ShowMessage(IntToStr(a shl 1));//28 and->0000 0000 0001 1100
ShowMessage(IntToStr(a shl 3));//112 and->0000 0000 0111 0000

b :=12; // 0000 1100;
ShowMessage(IntToStr(b shl 4)); //192 1100 0000
ShowMessage(IntToStr(b shl 5)); //384 11000 0000
// 6 // 11 0000 0000 (超出忽略)

end;

//shr
//说明：右移 左边补0 (超出忽略)
procedure TForm1.Button8Click(Sender: TObject);
var
a: Word;
begin
a := 14; // 0000 0000 0000 1110
ShowMessage(IntToStr(a shr 1));//7 shr->0000 0000 0000 0111
ShowMessage(IntToStr(a shr 2));//3 shr->0000 0000 0000 0011
//3 0000 0000 0000 0001
//4 0000 0000 0000 0000 (超出忽略)
end;

end.