case xx of

yhj999 2004-01-12 08:58:37

function dd(st:string):string
var sd:string;
begin
case st of
'asdf':sd:='dsafasd';
'asdf1':sd:='dsafasd2';
'asdf2':sd:='dsafasd3';
end
result:=sd;
end;

为什么不行啊，是不是case 变量 of 不支持字符串啊

...全文

45 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

lzy6204 2004-04-12

打赏
举报

来晚了：））

Tensionli 2004-04-12

打赏
举报

用序数吧

aiirii 2004-04-12

打赏
举报

zswangII(伴水清清)(职业清洁工)

//俺这样用～～
//123456789012345678901234
case Pos(',' + S + ',', ',1001A,1001B,1001C,1001D,') of
1: ;
7: ;
13: ;
19: ;
end;

reallike 2004-01-13

打赏
举报

枚举变量还不如数组来得方便。

nhdj 2004-01-13

打赏
举报

呵呵，不行就用if ... then... 吧

yongxin800 2004-01-13

打赏
举报

必须是有序数据
可以定义一个枚举变量,内容为字符串

reallike 2004-01-13

打赏
举报

我写的总结，希望有用。

http://expert.csdn.net/Expert/topic/2587/2587449.xml?temp=.5284235

zth215 2004-01-13

打赏
举报

这点上不如vb的，不过可以换方法，入楼上各位说的

yhj999 2004-01-13

打赏
举报

谢谢大家，有上百个内容呢

SiTwo 2004-01-13

打赏
举报

要求序数类型

whitetiger8 2004-01-13

打赏
举报

只支持有序类型的。换种思路就行了

angelface 2004-01-12

打赏
举报

呵呵，像楼上一样，换个写法就行了！~~~

mzzhf 2004-01-12

打赏
举报

function dd(st:string):string
var sd:string;
begin
case AnsiIndexText(st, ['asdf', 'asdf1', 'asdf2']) of
1:sd:='dsafasd';
2:sd:='dsafasd2';
3:sd:='dsafasd3';
end
result:=sd;
end;

hnhb 2004-01-12