将所有可能出现的字符串列举出来并定义成一个枚举类型.在CASE 中使用该枚举类型即可.

解决方案 »

  1.   

    Delphi 的 Case var_name of 语句中的 var_name 只能是有序类型,字符串是不能用的。解决的办法可以使用 if then else 嵌套,效率并不低或者使用枚举型,只是输出不方便。
      

  2.   

    你可以用1、2、3
    或A、B、C代替嘛
      

  3.   

    type TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport);
    case tviewstyle of 
      vsIcon: do statement;
      vsSmallIcon: do statement;
      vsList: do statement;
      vsReport: do statement;
    else do statement;
    end;
    这是用到的一个枚举类型来实现你的要求,不仅实现,而且增加程序的可读性,你可以试一试
    不过程序中用的是TlistView的属性,你可以换成你自己所需要的值来做。