delphi中如何运用case语句?
如果我要实现这样的语句，当输在Editpay.text里输入数据，然后在计算框里计算结果，放到EditTax.text里，如下图，用IF语句可以实现，但是用case语句又样写呢，我写了一段，不过老是说Constant expression expected 。是不是这一小段里写错了什么呢？procedure TForm1.BtncaculateClick(Sender: TObject);
var
pay,tax:single; // pay是个人收入，tax是税率；
begin
pay:=StrtoFloat(Editply.text);
case pay>0 of
pay<=500 : tax :=pay*0.05; //如果小于500；
pay>500 and pay<=2000 : tax :=pay*0.1; //如果大于500而小于2000；
pay>2000 and ply<=5000 : tax :=pay*0.15; //如果大于2000而小于5000；
end;
EditTax.text:=FloattoStr(tax);
end;
还望各位指点！先谢谢！
