622子界类型的使用(2) begin year: =strtoint(edit Text) nOrml month: =strtoint(edita. Text 00年下月 case month of 判 1,3,5,7,8,10,12days:=31; 该月天数为31 4,6,9,1 days: =30 2:if( year mod4=0) and(year mod100<>0)图62输出该月份的天数 or (year mod 400=0)then days: =29 else days:=28∥判断是否闰年输出二月份天数 end abe3 Caption:='该月天数为+ Finttostr(days) end ③输入年份、月份,单击按钮,执行结果如图6-2所示。 Inprise Dephi
6.2.2 子界类型的使用（2） begin year:=strtoint(edit1.Text ); month:=strtoint(edit2.Text ); case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11: days:=30; 2: if ((year mod 4=0)and(year mod 100<>0)) or (year mod 400=0) then days:=29 else days:=28 //判断是否闰年输出二月份天数 end; label3.Caption :='该月天数为'+inttostr(days); end; 输入年份、月份，单击按钮，执行结果如图6-2所示。 图6-2 输出该月份的天数
63集合类型 集合是指具有相同性质且可以相互区分的对象的全体。例如,所有 的英文字母可以组成一个集合,全体自然数组成一个集合,某个学校的 全体学生组成一个集合,等等。为了表示集合, Object Pascal引入了 集合类型 631集合类型的定义 使用集合类型和集合变量之前必须首先进行类型定义和变量声明。 1.集合与集合类型 集合的特点是所包括的各个对象具有某种相同的性质,构成集合的各 个对象称为集合的元素,集合的元素是某种简单数据类型的值,这种数据 类型称为集合的“基类型”,基类型只能是顺序类型。对于集合有以下几 个特点: (1)集合中的元素是互异的,即相同的元素视为同一个元素,集合{1, 2,2}与集合{1,2}是相同的; (2)集合中的元素是无序的,{1,2}与{2,1}是同一个集合; Inprise Dephi
6.3 集合类型 6.3.1 集合类型的定义 集合是指具有相同性质且可以相互区分的对象的全体。例如，所有 的英文字母可以组成一个集合，全体自然数组成一个集合，某个学校的 全体学生组成一个集合，等等。为了表示集合，Object Pascal 引入了 集合类型。 使用集合类型和集合变量之前必须首先进行类型定义和变量声明。 1. 集合与集合类型 集合的特点是所包括的各个对象具有某种相同的性质，构成集合的各 个对象称为集合的元素，集合的元素是某种简单数据类型的值，这种数据 类型称为集合的“基类型”，基类型只能是顺序类型。对于集合有以下几 个特点： （1）集合中的元素是互异的，即相同的元素视为同一个元素，集合{1， 2，2}与集合{1，2}是相同的； （2）集合中的元素是无序的，{1，2}与{2，1}是同一个集合；