见笑!

Question

  
  thisday:(sunday,monday,tuesday,wednesday,thurday,friday,saturday);  thisday为枚举类型，非字符串，  ShowMessage(IntToStr(Ord(sunday))); 
  将显示“0”，所以用 case 吧！

Answer 1

错在
thisday:=edit1.text
类型不匹配

Answer 2

不需要用Case：如果Edit中是数字的话，可以用类型强制转换：
type
  TThisDay=(sunday,monday,tuesday,wednesday,thurday,friday,saturday);
var
  thisday:tthisday;  
...
  thisday:=tthisday(strtoint(edit1.text));

Answer 3

thisday:=edit1.text; 语句出错，类型不匹配。
thisday 是枚举类型，而 Edit1.Text 是字符串类型。
若你非要这么做，用 Kingron(ＷｉｎＡＰＩ) 的方法吧。