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
