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;