delphi shr和shl的作用

x:=x shl 1 二進制數向左移1位,尾部補1個零,相當於x:=x*2;
x:=x shl 2 二進制數向左移2位,尾部補2個零,相當於x:=x*4;
...
x:=x shl n 二進制數向左移n位,尾部補n個零,相當於x:=x*2^n;

x:=x shr 1 二進制數向右移1位,首部補1個零,相當於x:=x div 2;
x:=x shr 2 二進制數向右移2位,首部補2個零,相當於x:=x div 4;
...
x:=x shr n 二進制數向右移n位,首部補n個零,相當於x:=x div (2^n);