Delphi的送分小问题

[goldenkey]

在Delphi中case语句不能对字符串进行比较,不知道有没有别的方法可以对字符串实现类似case操作?

[meijg]

用if...then
复杂一点，但是可能管用
只是建议

[goldenkey]

if...then的确可以实现，但在判断条件较多的情况下，复杂得一塌糊涂，还请指点迷津

[meijg]

其实case 就是好多的if...then
你少用点else 就是了
无非是 if 条件1 then 过程1；
if 条件2 then 过程2；
....

[lotto]

procedure case(sendstr:string);
var sample:array[1..4] of string;
i:integer;
begin
i:=1;
sample[1]:='abcd';
sample[2]:='efd';
sample[3]:='mnq';
sample[4]:='xyz';
while (i<=4) and (sample[i]<>sendstr) do
i:=i+1;
case i of
1:
2:
3:
4:
else
end;
end;

[pjy]

lotto的方法可行！