Question

DELPHI中有没有SELECT CASE语句,如果有语法怎样?

Answer 1

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

Answer 2

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;

Answer 3

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

Answer 4

UP