购物打折与Delphi的Case<表达式> of 语句(附:源码）

购物打折与Delphi的Case<表达式> of 语句

procedure TForm1.Button1Click(Sender: TObject);
var
  s,t:real;    //s为折扣后金额，t为未打折金额
  m:integer;  //m为t的截取整数
begin
  t:=strToFloat(edit1.text);
  m:=trunc(t);
  case (m div 100) of   //m整除100的结果属于下列范围：
    0:s:=t;
    1,2:s:=t*(1-5/100);
    3,4:s:=t*(1-10/100);
    5,6,7,8,9:s:=t*(1-15/100);
  else
    s:=t*(1-20/100);
  end;
  edit2.Text:=FloatTostr(s);
end;