您的位置:首页 > 编程语言 > Delphi

delphi 按位运算 not and or xor shl shr

2016-05-25 10:58 375 查看

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.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: