1.多分支选择：case
2.打开IDE，新建VCL应用，添加一个button1，一个edit1, 设置edit1的text属性为“0”，一个memo1，双击button1，编写代码：

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin

 i:=strtoint(edit1.Text);     //函数strtoint()，将字符串转为数字

 case i of                    //i必须是序数类型，如整型，字符型等，字符串类型不行。
   1:
     Memo1.Lines.Add('i=1') ;     //若edit中输入1，则Memo显示 i=1
   2:
     Memo1.Lines.Add('i=2') ;      //若edit中输入1，则Memo显示 i=1
   3,4:
     Memo1.Lines.Add('i=3或4');    //若edit中输入3，则Memo显示 i=3或4，  若edit中输入4，则Memo仍然显示 i=3或4
   5..10:
     Memo1.Lines.Add('i在5和10之间，包含5和10');    // 若edit中输入一个5到10之间的数，包括5和10，那么就会显示这个
   else
     Memo1.Lines.Add('else')  ;    //其他情况。

 end;       //这个end是case语句的结束符

end;

d9.gif