DELPHI case选择语句练习代码简化

本文整理自网络，侵删。

 
var
  month: Integer;
begin
  Writeln('请输入对应的月份：');
  Readln(month);
  case month of
    3,4,5: Writeln('春季');
    6,7,8: Writeln('夏季');
    9,10,11: Writeln('秋季');
    1,2,12: Writeln('冬季');
  else
    Writeln('非法数字');
  end;
  Readln;
end.

 

相关阅读 >>

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

Delphi 如何将颜色值转换为灰度颜色值？

Delphi让form先于控件响应按键

Delphi源码webbrowser多次执行documentcomplete

Delphi dbgrid 表格自适应宽度

Delphi 在程序运行时改变控件大小

Delphi中动态加载treeview信息

Delphi mediaplayer循环播放mp3所有音乐文件问题？

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi 获取安卓手机wifi信息(xe8)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI case选择语句练习代码简化