TSL流程控制语句CASE

多分支条件语句，Case of

语法一：普通语法。

CASE OF

<情况标号表1>: 语句1;

<情况标号表2>: 语句2;

: <情况标号表N>: 语句N;

[Else 例外语句;]

End;

情况标号表的语法为：

CASE区间1[,CASE区间2..CASE区间N]

CASE区间的语法为：

区间开始值[TO 区间结束值]

如果没有TO语句，则结束值和开始值相同。

例：

Function CaseExample(Age);

Begin

Case Age Of

0: Writeln(“婴儿”);

1 ,2: Writeln(“婴幼儿”);

3 TO 6: Writeln(“幼儿”);

7 TO 14: Writeln(“少年”);

15 TO 17: Writeln(“青少年”);

Else

Writeln(“成年”);

End;

End;

语法二：支持Case表达式，在该种情况下，分支语句不支持语句段，只能是单语句表达式。

B:= CASE OF

<情况标号表1>: 表达式1;

<情况标号表2>: 表达式2;

…（其它的与普通用法一致）

范例

范例一：

a:=3;

b:=case a of

1,2:”1/2”;

3,4:”3/4”;

else

“OTHER”;

end;

return b;

//结果：3/4

范例二：

a:=3;

b:=case a of

1,2:echo “1/2”;

3,4:echo “3/4”;

else

“OTHER”;

end;

return b;

//结果：0。打印窗口：3/4

范例三：表达式的用法

b:=@case a of

1,2:”1/2”;

3,4:”3/4”;

else

“OTHER”;

end;

a:=2;

return eval(b);

//结果：1/2

本作品采用《CC 协议》，转载必须注明作者和本文链接