delphi中case of问题

case a of 这个的a只能是整型数字呀！您可以这样做，用ComboBox1.ItemIndex属性来做：

i:= ComboBox1..ItemIndex;
case i of
0: ADOTable1.FieldByName('pid').AsString:= '0';//对应***部
1: ADOTable1.FieldByName('pid').AsString:= '1';//对应人事部
2: ADOTable1.FieldByName('pid').AsString:= '2';//财务部
3: ADOTable1.FieldByName('pid').AsString:= '3';//技术部
----------------------------------------------
针对您的补充，回答：
问题补充：i:=ComboBox1.ItemIndex; 报错Incompatible, types:'string' and 'Integer'//没有定义i,您必须先定义i:integer;
case i of 报错Ordinal type required
0: ADOTable1.FieldByName('pid').AsString:= 1; 报错Incompatible types:'string' and 'Integer'// 用‘’把1括起来，因为是字符串的。
1: ADOTable1.FieldByName('pid').AsString:= 2; 同上// 用‘’把2括起来，因为是字符串的。
2: ADOTable1.FieldByName('pid').AsString:= 3; 同上// 用‘’把3括起来，因为是字符串的。

 

===================================================================

 

 

 

只用过几天的vb,   不知道vb怎样.


对于in来判断一个字符串是否在集合中，你可以绕一下，不用集合，使用AnsiIndexStr。

比如:
S   :=   'ABC ';
case   AnsiIndexStr(S,   [ 'ABC ',   'DEF ',   'GHI '])   of
    0:   //ABC
    ;
    1:   //DEF
    ;
    2:   //GHI
    ;
end;

in是二进制操作符，相当于test指令，相当于判断(element   and   elements)   >   0。如果允许string
作为集合的元素，那么首先集合会变成一个Variant   array，因为集合的成员已经不能用位来
表示这么简单了，这样的话，你声明一个简单集合，在不支持字符串的情况下可能只需要1个
字节，如果支持string的话，就会大得多，而且集合操作极其低速，因为要对variant   array
进行操作，要判断数组的长度，元素的类型。这当然比不上的位操作来得快，也许你到时候
又要抱怨为什么它的in操作为什么这么慢了，集合要占这么多内存，你甚至也会像这里的一
位大佬那样说，pascal太次了。

对于为什么case只接受有序类型（枚举也是有序类型），不接受其他类型如字符串，大概原因可
能和字符串不能作为集合元素的原因相同。

至于为什么不能使用：
case   Sender   of
    Button1:   stmt1;
    Button2:   stmt2;
    ...
end;
的原因，我想可能是语义问题。

如果不限制判别式为常量表达式，会导致语义二义性，
如果Button1或Button2是变量或函数调用，那么运行时，Button1和Button2有可能等值。那
么当Sender   =   Button1   =   Button2时，到底执行stmt1,   还是执行stmt2呢？

你还是可以绕一下，这样调用：

if   Sender   is   TComponent   then
    case   TComponent(Sender).Tag   of
        1:   //Button1
        ;
        2:   //Button2
        ;
        ...
    end;
当然前提是各个Button的tag是unique的。

除了二义性，还有一个是优化的问题，如果限制使用常量表达式，则代码通常较为有效一点。

像这样的语句:
case   TComponent(Sender).Tag   of
    1:   stmt1;
    3:   stmt3;
    5:   stmt5;
    ...
    n:   stmtn;
else
    stmt_else;
end;

当case分支足够长，编译的大概会像这样编指令序列：
编译器预先计算好这样一个指令偏移表：
jmp_offset[1..n]   =   (
        addr_of_stmt1   -   addr_of_stmt_else,             //for   case   1
        0                                                                 ,             //for   case   2
        addr_of_stmt3   -   addr_of_stmt_else,             //for   case   3
        0                                                                 ,             //for   case   4
        addr_of_stmt5   -   addr_of_stmt_else,             //for   case   5
        ...,
        addr_of_stmtn   -   addr_of_stmt_else               //for   case   n
);   //如果else的机会较小则可能会以addr_of_stmt1来作为基地址

register   :=   TComponent(Sender).Tag;
compare   register,   0
if   less_or_equal   then   goto   stmt_else
compare   register,   n
if   great_than   then   goto   stmt_else
goto   addr_of_stmt_else   +   jmp_offset[register]


但是允许变量判别式的话，
case   Sender   of
    Button1:   stmt1;
    Button3:   stmt3;
    Button5:   stmt5;
    ...
    ButtonN:   stmtN;
else
    stmt_else;
end;

则指令序列类似于:
register   :=   Sender;
compare   register,   button1
if   equal   then   goto   stmt1
compare   register,   button3
if   equal   then   goto   stmt3
compare   register,   button5
if   equal   then   goto   stmt5
...
compare   register,   ButtonN
if   equal   then   goto   stmtN