delphi 按位运算 not and or xor shl shr

Posted 2020-07-12 张志峰的博客

delphi 按位运算 not and or xor shl shr

unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Shape1: TShape;

    Label1: TLabel;

    Label2: TLabel;

    Button7: TButton;

    Button8: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

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-256*256 (65535)

// longword:  四个字节 32      2的32次方         0-65536*65536 (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.