同一类型且含义逻辑上并列的变量 如 error0,error1,error2 ; r,g,b
     private
       -------              ,
       -------              ,
       -------              ,
       -------              ,
       -------              : -------
     var
       -------              ,
       -------              ,
       -------              ,
       -------              ,
       -------              : -------
     function  ---------------------(--, --, --: ----; var --, --, --: ----): ----;

     t------- = class(-------)
     private
       f-------: -------;
       f-------: -------;
       f-------: -------;
       function --------------: -------;
       procedure --------------;
     protected
       function --------------: -------;
       procedure --------------;
       function --------------: -------; virtual; abstract;
     public
       constructor create(-------: -------); override;   {if need to do something after create}
       destructor destroy; override;                     {if need to do something before destroy}
       function --------------: -------;
       procedure --------------;
       property -------: ------- read f-------;
     published

     end; 

14、形式反映结构
  例子：
  tetindex : array[0..3] of tinteger3v =
             (  (0, 1, 3),
                (2, 1, 0),
                (3, 2, 0),
                (1, 2, 3)  );
  cursors: array[0..4] of tidentmapentry = (
    (value: crdefault;      name: ''''crdefault''''),
    (value: crarrow;        name: ''''crarrow''''),
    (value: crcross;        name: ''''crcross''''),
    (value: cribeam;        name: ''''cribeam'''') ); 

  if    (dwflags and pfd_draw_to_window) = 0)
      or(    (dwflags and pfd_support_opengl) = 0)
           or(   (dwflags and pfd_doublebuffer) = 0)
              or (ipixeltype <> pfd_type_rgba)
              or (ccolorbits < 16)
              )
         ) then
  raise exception.create(''''inappropriate pixel format chosen.'''');

  glbegin(shadetype);
  glnormal3fv(@n0);
  glvertex3fv(@dodec[a, 0]);
  glvertex3fv(@dodec[b, 0]);
  glvertex3fv(@dodec[c, 0]);
  glvertex3fv(@dodec[d, 0]);
  glvertex3fv(@dodec[e, 0]);
  glend();

  dodec[0, 0] := -alpha;  dodec[0, 1] := 0;       dodec[0, 2] := beta;
  dodec[1, 0] := alpha;   dodec[1, 1] := 0;       dodec[1, 2] := beta;
  dodec[2, 0] := -1;      dodec[2, 1] := -1;      dodec[2, 2] := -1;

procedure glutwiretorus(
                        innerradius : gldouble;  //---------
                        outerradius : gldouble;  //---------
                        nsides      : glint;     //---------
                        rings       : glint );   //---------
    case frundirection of
      rdrighttoleft : begin
                              sty:=cny;
                                   stx:=width - currentstep;
                              end;
      rdlefttoright : begin
                                 sty:=cny;
                                 stx:=-currentstep;
                              end;
      rdbottomtotop : begin
                                     stx:=cnx;
                                     sty:=height - currentstep;
                                 end;
      rdtoptobottom : begin
                                     stx:=cnx;
                                     sty:=currentstep - rtheight;
                                  end;
                           else begin
          &nb

上一页  [1] [2] [3] [4]  下一页