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使用indy组件http上传文件

orangeui作者开源作品

Delphi操作word中的表

Delphi 10.x ide界面

Delphi 串口常用的字符串转换函数

Delphi idftp连接

Delphi多线程程序示例（最简单的多线程）

Delphi 监控系统文件操作

Delphi ticon保存ico文件时失真的解决办法

Delphi keydown与keyup、keypress的区别

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

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