delphi零基础学习时，编译计算器如何实现shl、shr的功能？

张子川

大佬们好，新手小白求问。我在编译计算器功能shl、shr时软件总是报错，是怎么回事呢？百度说是缺少end;我试了好多次还是不能解决。
求大佬们解惑！！！救救孩子吧

procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text:=inttostr( shl strtoint(edit1.Text));
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text:=inttostr(shr strtoint(edit1.Text));
end;

报错显示：
[Error] Unit1.pas(114): Expression expected but 'SHL' found
[Error] Unit1.pas(119): Expression expected but 'SHR' found

张子川

完了完了我好像傻了。。。。

张子川

我这写的是啥啊。。我连左移右移多少位都不知道，我这计算个寂寞啊。。。。啊啊啊啊羞耻啊，社会性死亡了，大佬们怎么删帖啊

张子川

可能就是只有我一个人犯这个毛病，忘记了shr和shl是双目计算符。只要在代码里面交代清楚a shr/shl 多少b就可以了。。。我太他娘的羞耻了