青岛华润悦府 滞销:DELPHI中有没有SELECT CASE语句,如果有语法怎样?

来源:百度文库 编辑:高校问答 时间:2024/04/29 22:08:22

case I of

1..5: Caption := 'Low';
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;

===============================

if I in [1..5] then

Caption := 'Low'
else if I in [6..10] then
Caption := 'High'
else if (I = 0) or (I in [10..99]) then
Caption := 'Out of range'
else
Caption := '';

==================================

case MyColor of

Red: X := 1;
Green: X := 2;
Blue: X := 3;
Yellow, Orange, Black: X := 0;
end;

我在delphi自带的“联机帮助”里键入"select case",没有发现相关内容。
我也从来没有见过有人在Delphi里用过这样的语法.

只要是有序类型都能用case语句
注意,delphi不是VB,没有select

UP