这个问题怎样解决？？？帮帮我(50分)

三更半夜 · 2001-05-29

有一个String型变量Lx，其值是从数据库谋一字符型字段中获得的值，其值可为：NCS,BQY,SR,JS,DNCS,DBQY。现要对Lx为不同值时，做分别处理。
怎样用Case...of语句解决这个问题？
Case语句好像不能处理String型变量。

djdsz · 2001-05-29

const
s=' NCS; BQY; SR; JS; DNCS; DBQY;';
begin
case pos(Field.asstring,s) of
1:
2:
3:...
end;

火鸟 · 2001-05-29

上面的第兄说的没错,但用if...else...语句也可以解决的

三更半夜 · 2001-05-30

我觉得
case lx[2] of
'c':
'q':
'r':
's':
'n':
'b':
好一些。

54l5 · 2002-04-02

zryzry · 2002-04-02

DELPHI中不能对STRING的变量用语句CASE

yxdelphi · 2002-04-02

同意：djdsz

zhaixiaobo · 2002-04-02

var fg:tstrings;
fg:=tstring.create;
fg.CommaText:='NCS BQY SR JS DNCS DBQY';
case fg.indexof(lx) of
0:begin //為NCS
end;
1:begin //為BQY
end
...
end;