delphi shr shl 位移运算

procedure TForm5.Button1Click(Sender: TObject);

const

  w1:Word = 101;

var

  w:Word;

begin

  w := w1 shr 3;

  ShowMessage(IntToStr(w));  //12 {w1 shr 3 相当与 w1 div 2的3次方}

  w := w1 shl 3;

  ShowMessage(IntToStr(w));  //808  {w1 shl 3 相当与 w1 * 2的3次方}

end;