程序错误

Question

请大家帮我看看这个怎么会不对，
var
   strToCom:string;
Case Formatdatetime('dddd',now()) of
        '星期日': strToCom:=strToCom+'00';
        '星期一': strToCom:=strToCom+'01';
        '星期二': strToCom:=strToCom+'02';
        '星期三': strToCom:=strToCom+'03';
        '星期四': strToCom:=strToCom+'04';
        '星期五': strToCom:=strToCom+'05';
        '星期六': strToCom:=strToCom+'06';    Else
         showmessage('时间不合理');      }
    End ;
是哪错了呀,提示ordinal type request

Answer 1

在PASCAL 中Case of语句的枚举条件不能是字符串型的，只能是整型

Answer 2

Case of语句的中的条件只能是简单型类型，，楼主您看看帮助吧，