同一类型且含义逻辑上并列的变量 如 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;
 

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