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);