关于delphi7的case问题,初学望请教

                            
我有个过程,接一个字符串变量,然后用case总是会错,我是初学望请教.   
  function   PUBFUN(CONST   YbComStr:widestring;CONST   HostIP:widestring;CONST   CryptXml:widestring;CONST   InXml:widestring;OutParm3:PChar):   integer;  
   
  case   YbComStr   of  
                  'MODIFYCARD':         wsReturn   :=   DModule.DCOMConnection1.AppServer.MODIFYCARD(wsParm1,wsParm2);  
                  'GETPSNINFO':         wsReturn   :=   DModule.DCOMConnection1.AppServer.GETPSNINFO(wsParm1,wsParm2);  
                  end;  
   
  请教一下,应该怎么写才是对的.

查看回复