zoukankan      html  css  js  c++  java
  • Delphi基本类型--枚举 子界 集合 数组

    [plain] view plain copy
    <strong>根据枚举定义集合 </strong>  
      TMyColor = (mcBlue, mcRed);  
      TMyColorSet = set of  TMyColor ;  
    
    [plain] view plain copy
    <strong>根据枚举定义数组</strong>  
    type  
    TMyEnum = (red,green,blue); {定义枚举}  
    procedure TForm1.Button1Click(Sender: TObject);  
    const  
        ColorArr: array[TMyEnum] of string=('','绿',''); {定义数组}  
    var  
        myEnum: TMyEnum; {定义枚举变量}  
    begin  
    for myEnum := Low(ColorArr) to High(ColorArr) do  
    begin  
       ShowMessage(ColorArr[myEnum]); //myEnum变化时,就得到它对应的描述  
    end;  
    
    
    [plain] view plain copy
    <strong>枚举类型</strong>  
      Pascal程序不仅用于数值处理,还更广泛地用于处理非数值的数据。例如,性别、月份、星期几、颜色、单位名、学历、职业等。  
        
    1、枚举类型的定义  
       格式: type 枚举类型标识符=(标识符1,标识符2,…,标识符n)  
      
    2、枚举类型数据特点  
      
    ① 枚举元素只能是标识符;  
      
    例如,下列类型定义是合法的:  
          type  days=(sun,mon,tue,wed,thu,fri,sat);  
              colors=(red,yellow,blue,white,black,green);  
           而下列类型定义是错误的:  
         type colortype=('red','yellow','blue','white');  
                numbers=(1,3,5,7,9);  
      
    定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域(取值范围)。  
       
      
    ② 枚举类型属于顺序类型  
       根据定义类型时各枚举元素的排列顺序确定它们的序号,且序号从0开始。  
      
    例如,定义type days=(sun,mon,tue,wed,thu,fri,sat);  
      
    则, ord(sun)=0,ord(mon)=1,……,以此类推。  
      
    枚举类型中的第一个元素无前趋,最后一个元素无后继。   
           pred(sat)=fri; succ(sun)=mon; ord(sat)=6;   
       
      
    ③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:  
       type color1=(red,yellow,white);  
          color2=(blue,red,black);   
      
     因为red属于枚举类型color1和 color2  
        
    ④ 枚举类型变量只能进行赋值运算和关系运算,不能进行算术运算和逻辑运算。  
      在枚举元素比较时,实际上是对其序号的比较。  
      
     例如定义如下:  
        type days=(sun,mon,tue,wed,thu,fri,sat);  
          colors=(red,yellow,blue,white,black,green);  
        var color:colors;  
          weekday:days;  
     则下面语句是合法的:  weekday:=mon;  
                         if weekday=sun then write('rest');  
     而下面语句是不合法的:  
      
    mon:=1;           错把枚举值当成变量名;  
      
    weekday:=blue;   枚举值blue不属于枚举变量weekday的值域;  
      
    read(color);      枚举类型变量 不能用读语句进行赋值;  
      
    write(weekday); writeln(blue);不能通过写语句输出枚举类型的变量值和枚举值。  
       
      
    ⑤ 可以把变量的说明与类型的定义合并在一起,如:  
      var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);  
         color:(red,yellow,blue,white,black,green);  
      
    对枚举数据的输入与输出可通过间接方式进行。输入时,一般可输入一个代码,通过程序进行转换,输出时,也只是打印出与枚举元素相对应的字符串。这在后面的例题中将有使用示例。  
        
    二、枚举类型的应用  
    例1、输入今天是星期几的序号,输出明天是星期几的英文单词(星期天序号为0)。  
      type weekday=(sun,mon,tue,wed,thu,fri,sat);  
       var i : integer;  
         today,tomorrow : weekday;  
      begin  
       writeln('What date is it'); readln(i);  
       case i of                              { 根据输入转换成枚举型 }  
        0:today:=sun;  
        1:today:=mon;  
        2:today:=tue;  
        3:today:=wed;  
        4:today:=thu;  
        5:today:=fri;  
        6:today:=sat;  
       end;                            
      
    if (today=sat) then tomorrow:=sun  else tomorrow:=succ(today);  
        write('The tomorrow is ');      
       case tomorrow of  
        sun:writeln('sunday');  
        mon:writeln('monday');  
        tue:writeln('tuesday');  
        wed:writeln('wednesay');  
        thu:writeln('thursday');  
        fri:writeln('friday');  
        sat:writeln('saturday');  
       end;  
      end.  
        枚举类型是一种有序类型,所以枚举类型的变量可以作为循环变量。  
    
    [plain] view plain copy
    <strong>子界类型</strong>  
    如果我们定义一个变量为integer型,那么它的取值范围一般为-3276832767。而事实上,每个程序中所用的变量的值都有一个确定的范围。 例如,人的年龄一般为1到120岁,一年中的月数为1到12月,一月中的天数为1到31天等等。  
      如果能在程序中对所用的变量的值域作具体规定,就便于检查出那些不合法的数据,这就能更好地保证程序运行的正确性且在一定程度上节省内存空间。  
        
       子界类型能很好解决上面的问题。此外,在数组的定义中,常用到子界类型,以规定数组下标的范围。  
      
    1、定义格式:  
         type 子界类型标识符=常量1..常量2   
          常量1称为子界的下界,常量2称为子界的上界;  
    ①下界和上界必须是同一顺序类型(该类型称为子界类型的基类型),且上界的序号必须大于下界的序号。  
      例如 type age=1..100;  
              letter='a' ..'z';  
    ②可以直接在变量说明中定义子界类型。如:  
      type  letter='a'..' z ';  
         var ch1,ch2:letter;  
      可以合并成:  
            var ch1,ch2:'a'..'d';  
      
    2、子界类型数据的运算规则  
    ①凡可使用基类型的运算规则同样适用该类型的子界类型。  
     例如,可以使用整型变量的地方,也可以使用以整型为基类型的子界类型数据。  
       
    ②对基类型的运算规则同样适用于该类型的子界类型。  
       
      例如,divmod要求参加运算的数据为整, 因而也可以为整型的任何子界类型数据。  
    ③基类型相同的不同子界类型数据可以进行混合运算。  
     例如:设有如下说明:  
      var  x:1..100;  
         y:1..500;  
         z:1..1000;  
          a:integer;  
      则下列语句是合法的: a:=Sqr(x)+y+z;   z:=x+y  
      下列语句: y:=x+z+a; 当x+y+a的值在1~500范围内时是合法的,否则会出错。  
    三、子界类型应用举例  
    例1、使用子界型情况语句,当输入月、日、年(10 30 1986),输出30 Oct 1986。  
       var month:1..12; day:1..31; year:1900..2003;  
       begin  
        write('Enter date(mm dd yy):'); readln(month,day,year); write(day);  
    case month of  
         1:write('Jan':5);  
         2:write('Feb':5);  
         3:write('Mar':5);  
         4:write('Apr':5);  
         5:write('May':5);  
         6:write('Jun':5);  
         7:write('Jul':5);  
         8:write('Aug':5);  
         9:write('Sep':5);  
         10:write('Oct':5);  
         11:write('Nov':5);  
         12:write('Dec':5);  
        end;  
        writeln(year:7);  
       end.  
    例2、将一个四位的十六进制数转换成十进制数。  
    Var ch:char; n:1..4;  d1,d2,d3,d4,t:0..15; s:real;  
    Begin       
    Write('The hex number is ');  
    For n=1 to 4 do  
    Begin                    { 把四位的十六进制数分四次作为字符读入 }  
    Read(ch); write(ch);   { 分别转换为十进制的数d1,d2,d3,d4, }  
    if (ch>='0') and (ch<='9')then t:=ord(ch)-48;  
    if (ch>='a') and (ch<='z')then t:=ord(ch)-87;  
    if (ch>='A') and (ch<='Z')then t:=ord(ch)-55;  
    case n of  
    1:di:=t;  
    2:d2:=t;  
    3:d3:=t;  
    4:d4:=t;  
    end,  
    end;  
    s:=d1*16*16*16+d2*16*16+d3*16+d4;  
    writeln('dec:',s)  
    end.   
    数组
    type
        TBigByteArray = array [0 .. MaxInt - 1] of byte
        TBytes = TBigByteArray;
        PBigByteArray = ^TBigByteArray;
    
    var
        PText: PBigByteArray 
    //方法一:指针操作 分配空间
        GetMem(PText, 10);
    //方法二:动态数组定义 推荐这种方式,代码简洁多了
        TextArr: array of byte; 
        SetLength(TextArr, 10); 
  • 相关阅读:
    单例模式
    json 格式
    axios 获取不到数据错误
    sprint test 添加事务回滚机制
    springboot An incompatible version [1.1.32] of the APR based Apache Tomcat Native library is installed, while Tomcat requires version [1.2.14]
    spring boot 启动之后404
    废了
    tomcat 部署项目到服务器
    Druid 介绍及配置
    jq 全选
  • 原文地址:https://www.cnblogs.com/rogge7/p/5851817.html
Copyright © 2011-2022 走看看