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中引用sqlite3

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi中的record怎么动态分配内存？

Delphi制作手机签名app（windows同样适用）

Delphi 创建console-控制台应用

firemonkey下使用stylebook的一些经验

idtcpclient和idtcpclient 主要属性和方法

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi 给变量加引号

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

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