case语句适用于被判断的
变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。
用case语句进行逻辑跳转比编写复
杂的if语句容易阅读,而且程序代码整形较快。
下面的例程显示一个使用case语句的
窗体:
建立如下的事件处理过程:
procedureTForm1.Button1Click(Sender:TObject);
var
Number:Integer;
begin
Number:=
StrToInt(Edit1.Text);
caseNumberof
1,3,5,7,9:Label2.Caption:='奇数';
0,2,4,6,8:Label2.Caption:='偶数';
10..100:
begin
Label2.Caption:='在10到100之间';
Form1.Color:=clBlue;
end;
else
Label2.Caption:='大于100或为负数';
end;
end;
执行程序,当Edit1部件接受到一个值,并按动“OK”按钮
触发程序后,Number便被赋值为
用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case
语句也有可选择的else部分。case语句以end结尾。