���봴����ʽ�淶 1.0 (for delphi)

���淶��Ŀ�ģ����Լ��Ĵ���һ��ͳһ����׼����ۣ���ǿ�ɶ��ԣ�������ԣ���ά���Ա��淶��ԭ�����Ʒ�ӳ����,��ʽ��ӳ�ṹ

1����Ԫ���2���������3�������4����������

�ο���borland�ٷ�object pascal���ָ��      delphi5����Աָ�ϱ����׼   

1����Ԫ���

{*******************************************************}{                                                       }{                     ��Ŀ����                          }{                                                       }{            ��Ȩ���� (c) 2000,2001 ��˾����            }{                                                       }{*******************************************************}

unit unitname;{*******************************************************��Ŀ:ģ��:����:�汾:����:����:����:todo:*******************************************************}

interface

uses   ----,----,----,----,----,----,----,----,----,----,----,    ----,----, ----,----,----,----;

const   --------------------;   --------------------;   --------------------;  type   --------------------;   --------------------;   --------------------;    --------------------;   --------------------;   --------------------;

var   --------------------;   --------------------;   --------------------;

implementation

uses   ----,----,----,----;

{$r *.res}{$r *.dfm}

--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;

end.

����

2���������0��ע����հ�    ��{ } ���� //   ����ע�ͣ���������Ŀ��˵�������ע��   ���� ����Ȩ�飬��֮�䣬����֮��--�����У� �����ڲ��飨һ�У�   �ո� ��������ǿ������                           ���� �������ո� 

1�������� ������

const  -----    = ----;  -----    = ----;  -----    = ----;  -----    = ----;

��չǰ׺��  ����c_---���������ÿ��������һ��ǰ׺const

  { ����1 }  c_---    = ----;  { ���� }  c_---    = ----;  { ���� }  c_---    = ----;  { ���� }  c_---    = ----;  { ���� }  { ����2 }  -----    = ----;  -----    = ----;  -----    = ----;  -----    = ----;

��Դ�ַ���,���ڱ���������

resourcestring

const  s_---    = '----';  s_---    = '----';  s_---    = '----';

���ӣ�

   cm_base                        = $b000;   cm_activate               = cm_base 0;   cm_deactivate           = cm_base 1;   cm_gotfocus              = cm_base 2;   cm_lostfocus            = cm_base 3;    numpaletteentries = 20;    boxpoints : array[0..5, 0..2] of glfloat =              (  (-1,  0,  0),                  ( 0,  1,  0),                  ( 1,  0,  0),                  ( 0, -1,  0),                  ( 0,  0,  1),                  ( 0,  0, -1)  );

   { variant type codes (wtypes.h) }

    varempty      = $0000; { vt_empty   }    varnull         = $0001; { vt_null        }    varsmallint    = $0002; { vt_i2          }   gifversions : array[gv87a..gv89a] of tgifversionrec = ('87a', '89a');

2��������    ��������-->���ṩ�������������   t---- = ---------   ��������-->��״̬���ṩ�����ʵ��   t---- = class(----)   private     --------     --------   protected     --------     --------   public       --------       --------   published       --------      --------   end;

   ����ĸ����

private   1���������ݷ���private ������f��ͷ   2�������¼����Զ�Ӧ�ķ���ָ�����private ������f��ͷ   3�����Ե�get��set��������private ��-->��׼�����̳�   4����Ӧ��Ϣ�ķ�������private ��protected   1����������õĵ����ܱ������õķ���������   2�����������صķ��� virsual;      virsual;  abstractpublic   1��������������   2���������õķ���   3���������õ�����published   1��������object inspector�﹩���ʱ�õ�����   2��������object inspector�﹩���ʱ�õ��¼���Ӧ 

���ӣ�

  tgifversion = (gvunknown, gv87a, gv89a);  tgifversionrec = array[0..2] of char;  pinterfacetable = ^tinterfacetable;  tinterfacetable = packed record  entrycount: integer;  entries: array[0..9999] of tinterfaceentry;

  { forword declairation }   tgifimage = class;  tgifsubimage = class;  {---------------------------           tgifitem   ---------------------------}  tgifitem = class(tpersistent)  private    fgifimage: tgifimage;  .............  end; 

3��������  ����ȫ�ֱ��� ע�ⲻҪ��ȱʡ�������������ڵ������������� var -----------: -------; -----------: -------; ���ӣ� gifdelayexp: integer = 10;          { delay multiplier in ms.} gifdelayexp: integer = 12; 

4��ʵ���� {---------------------------------------------------------                        ����----------------------------------------------------------}

{ ������Ŀ�� }procedure  ----------------------------begin  --------;  --------;end;

{ ������Ŀ�� }function  -----------------------------begin  --------;  --------;end;

5�������뺯��    ����   ��ʽ

  ����

3�������1�������   -------;2���������    begin     -----;     -----;   end; 

3����ֵ���   -- ��= -------��   -- ��= ��-- --��* ��-- / --����

4���ֲ�����var  ---: ---;  ---: ---;�����߼��ϲ��еı����飺var  ---��  ---��  ---: ---;

5����������  --- = array [*..*] of ---;

6��if ���  if (--------) then    -------------;

  if (--------) then  begin    -------------;    -------------;    -------------;  end;

  if (--------) then    -------------;  else    -------------; 

  if (--------) then  begin    -------------;    -------------;    -------------;  end else    -------------;

   if (--------) then  begin    -------------;    -------------;    -------------;  end else  begin    -------------;    -------------;    -------------;  end;

  if (--------) then    -------------  else if (--------) then    -------------; 

7��for ѭ��

   for i := -------- to -------- do     -------------;

   for i := -------- to -------- do  begin      -------------;      -------------;     -------------;   end;

   for i := -------- to -------- do      if (--------) then      begin         -------------;         -------------;         -------------;       end;

   for i := -------- to -------- do     with -------- then     begin        -------------;       -------------;       -------------;     end;

8��while ѭ��

  while ------ do  begin    -------------;    -------------;    -------------;  end;

9��repeat ѭ��  repeat    -------------;    -------------;    -------------;  until ------; 

10��case ���

   case -------- of     -------- :   -------------;     -------- :   -------------;     -------- :   -------------;           else    -------------;   end;

   case -------- of      -------- :        -----------------------------------------------------------------;      -------- :        -----------------------------------------------------------------;      -------- :        -----------------------------------------------------------------;           else        -----------------------------------------------------------------;    end;

  case -------- of     -------- : begin                        --------------------------;                        --------------------------;                        --------------------------;                    end;     -------- : begin                        --------------------------;                        --------------------------;                        --------------------------;                     end;     -------- : begin                       --------------------------;                       --------------------------;                       --------------------------;                    end           else  begin                       -------------;                       -------------;                       -------------;                    end;

  end; 

11��with ���    with -------- do      -------------;

   with -------- do   begin      -------------;      -------------;      -------------;   end; 

12��try ���      try       -------------;       -------------;       -------------;     finally       -------------;       -------------;       -------------;     end;

     try       try         -------------;         -------------;         -------------;       except          -------------;           -------------;       end;     finally       -------------;       -------------;       -------------;     end; 

13������      ����:�����ǰ��Ҫ�пո�     w1[n] := ((i 1) * v0[n] j * v1[n] (k - 1) * v2[n]) / depth;

     -- = --     -- >= --     -- <= --     -- > --     -- < --     -- <> --     -- := --;   ��ֵ     --: ----;   ���� 

     ͬһ�����Һ����߼��ϲ����еı���  20���ַ����ı�����     private       -------                 : -------;       -------                 : -------;       -------                 : -------;       -------                 : -------;       -------                 : -------;     var       -------                 : -------;       -------                 : -------;       -------                 : -------;       -------                 : -------;       -------                 : -------;     function ---------------------(--: ----; --: ----; --: ----): ----;

     ͬһ�����Һ����߼��ϲ��еı��� �� 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                                     stx:=cnx;                                      sty:=cny;                                  end;      end;

     case (dithermode) of        dmnearest:          ditherer := tditherengine.create(bitmap.width, colorlookup);        dmfloydsteinberg:          ditherer := tfloydsteinbergditherer.create(bitmap.width, colorlookup);        dmstucki:          ditherer := tstuckiditherer.create(bitmap.width, colorlookup);        dmsierra:          ditherer := tsierraditherer.create(bitmap.width, colorlookup);        dmjajuni:          ditherer := tjajuniditherer.create(bitmap.width, colorlookup);        dmstevearche:          ditherer := tstevearcheditherer.create(bitmap.width, colorlookup);        dmburkes:          ditherer := tburkesditherer.create(bitmap.width, colorlookup);      else        exit;end;

���� 

4����������  1���ļ�����:   uģ�����ƣ�����֪��  2���ؼ�����:   ����_�ؼ���д������֪��  3������         :   ����������д�����������ʣ�����֪��  4����������̣�����������д�������ö������飻����֪��  5�������Ĺ���            ������t��ͷ (type֮��)            ���˽����������f��ͷ(field֮��)            �����ݵĴ�ȡ�����ֱ���set��get��ͷ            �¼�������on��ͷ

阅读更多
个人分类: delphi
想对作者说点什么? 我来说一句

串口调试助手Delphi1.0

2011年09月20日 246KB 下载

串口调试助手Delphi版 v1.0

2006年01月13日 263KB 下载

Delphi 1.0 支持 WIN3.1

2014年03月09日 20.58MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭