CASE语句使用(50分)

CASE语句使用
用EDIT输入命令，然后用CASE判断及转向执行，但CASE不支持STRING类型，
（1）
var a:set of ('abc','cde');
case a of
'abc':........;
'cde':........;
end;

（2）
定义…………
TOrder = (abc, cde);

在case语句中
var
Order: TOrder;
begin
order:=edit1.text;
case Order of
abc: …………;
cde: …………;
end;
…………
end;
这两种方法都不行，第2个方法中不知道要如何将EDIT的值送给ORDER，请帮助

建立 CaseString 函数，用于获取某字符串在一个字符串数组中的顺序：
function CaseString (const s: string;
const x: array of string): Integer;
var i: Integer;
begin
Result:= -1; // Default return parameter
for i:= Low (x) to High (x) do begin
if s = x then begin Result:= i; Exit; end;
end;
end;

search:= 'delphi3000';
case CaseString (search, ['delphi3000',
'delphipages',
'Torry's']) of
0: s:= 'Excellent!';
1: s:= 'Good source';
2: s:= 'Not bad!';
end;

自己参考了。

接受答案了.