Question

如何用参数控制delphi的case语句中的列项个数？

比如自定义函数：
function getword(n:integer):string;
begin
case n of
1: result:='red';
2: result:='yellow';
3: result:='blue';
end;
end;
能否参数n=4则写成
case n of
1: result:='red';
2: result:='yellow';
3: result:='blue';
4: result:='green';
end;
参数若n=2则
case n of
1: result:='black';
2: result:='purple';
end;

Answer 1

没这个必要，你按照最大的可能性编写就行了。
假如n=5，而你只涉及到3，直接n:=n mod 3就行了，它就不会涉及到n为4的情况了。

Answer 2

没怎么看懂
参数n=4了，还case n of干嘛呢