delphi位运算使用

Delphi 的按位运算符共有六个: not and or xor shr shl;
其中的 not and or xor 也叫逻辑运算符, 其实功能都是一样的, 因为不管什么数据追到底都是 0 和 1 的组合;
在 Delphi 内嵌汇编中, 应该也没什么区别(内嵌汇编还在学习中, 不太熟).

测试下面的例子时, 可以用这里的方法: [url]http://www.cnblogs.com/del/archive/2008/03/09/1097845.html[/url]

---

 Unit1;


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  TForm1 = (TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
     Button1Click(Sender: TObject);
     Button2Click(Sender: TObject);
     Button3Click(Sender: TObject);
     Button4Click(Sender: TObject);
     Button5Click(Sender: TObject);
     Button6Click(Sender: TObject);
  ;

  Form1: TForm1;



  w1: Word = ; 
  w2: Word = ;  

  w: Word;

 TForm1Button1Click(Sender: TObject);

  w :=  w1;
  
  
  
  ShowMessage(IntToStr(w)); 
;

 TForm1Button2Click(Sender: TObject);

  w := w1  w2;
  
  
  
  
  ShowMessage(IntToStr(w)); 
;

 TForm1Button3Click(Sender: TObject);

  w := w1  w2;
  
  
  
  
  ShowMessage(IntToStr(w)); 
;

 TForm1Button4Click(Sender: TObject);

  w := w1  w2;
  
  
  
  
  ShowMessage(IntToStr(w)); 
;

 TForm1Button5Click(Sender: TObject);

  w := w1  ;
  
  
  
  ShowMessage(IntToStr(w)); 
  
  w := w1  ;
  ShowMessage(IntToStr(w)); 
  
  w := w1  ;
  ShowMessage(IntToStr(w)); 
;

 TForm1Button6Click(Sender: TObject);

  i: Integer;

  w := w1  ;
  
  
  
  ShowMessage(IntToStr(w)); 
  
  w := w1  ;
  ShowMessage(IntToStr(w)); 
  
  w := w1 * ;
  ShowMessage(IntToStr(w)); 
  
  
  
  i := w1  ;
  ShowMessage(IntToStr(i)); 
  i := w1 * ;
  ShowMessage(IntToStr(i)); 
;
.

转载于:https://blog.51cto.com/bigpower/89547