Delphi代码创建形式规范

最新推荐文章于 2024-05-31 14:20:05 发布
最新推荐文章于 2024-05-31 14:20:05 发布
阅读量1k 收藏 1
点赞数
文章标签： delphi function integer destructor class object
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Odayfans/article/details/21201
版权

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;  abstract
public
   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打头

(完)

ofan
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
delphi代码规范
04-02
【Delphi代码规范】是指导Delphi编程时遵循的一系列规则和最佳实践，旨在提高代码的可读性、可维护性和团队协作效率。以下是对这些规范的详细解释： 1. **通用源代码格式规则** - **缩格**：代码应保持一致的缩进...
delphi类代码自动生成器
04-29
3. **代码生成功能**：根据模板和元数据，自动生成符合规范的Delphi类代码。这包括类声明、属性定义、构造函数、析构函数、方法实现等。 4. **用户界面**：一个友好的用户界面可以帮助用户配置生成选项，如选择模板...
delphi代码 snmp_snmp代码篇
weixin_39551611的博客
12-22 575
SNMP是英文“Simple Network ManagementProtocol”的缩写，中文意思是“简单网络管理协议”。SNMP是目前最常用的环境管理协议。SNMP被设计成与协议无关，所以它可以在IP，IPX，AppleTalk，OSI以及其他用到的传输协议上被使用。SNMP是一系列协议组和规范，它们提供了一种从网络上的设备中收集网络管理信息的方法。SNMP也为设备向网络管理工作站报告问题和错...
Delphi代码规范
weixin_30740295的博客
02-20 115
Delphi 开发指南 —— 编码标准文档版权所有 ?1998 Xavier Pacheco 及 Steve Teixeira 翻译 2000 李颖(e.w@263.net)目录 1.导言 2.一般源代码格式规范 缩进 页宽 Begin..End 对 3.Object Pascal 语言 3.1括号 3.2保留字和关键字 3.3过程和函数 (子程序) 3.4变量 3...
DELPHI代码编写规范
注重长远 天天积累 cqujsjcyj
05-07 228
1序言 本文档详述了在Delphi中进行编程的代码编写规范。通过该规范，开发小组可以在他们所编写的代码中保持一贯的风格。这样做的目的是使在开发小组中的每一个程序员都可以明白其他程序员的代码。这有助于提高代码编写的可读性和使用的一贯性。   本文档所述的代码编写规范是基于Borland开发人员所使用的标准，并在此基础上修改了部份内容以符命我们我们自身的一些需要。2通用源代码格式规则2.1 缩格...
Delphi编程代码规范
wozengcong的专栏
09-09 1410
1. 一般的源代码格式规则 2 1.1 缩进 2 1.2 空格 2 1.3 边距 2 1.4 颜色及文字属性 2 1.5 begin···end 2 2. OBJECT PASCAL 3 2.1 括号 3 2.2 保留字和关键字 3 2.3 过程和函数（例程） 3 2.4 变量 4 2.5 常量(const) 5 2.6 资源串(resourcestring) 5 2.7
代码创建形式规范 1.0 (for delphi)
吕枫的专栏
07-27 702
本规范的目的：给自己的代码一个统一而标准的外观，增强可读性，可理解性，可维护性本规范的原则：名称反映含义,形式反映结构 1、单元风格2、各区风格3、语句风格4、命名规则 参考：borland官方object pascal风格指南      delphi5程序员指南编码标准    1、单元风格　 {**************************************************
delphi 语法3
173713873
05-31 662
简单类型共包括有六种类型：整型、字符型、布尔型、枚举类型、子界类型、实型。除实型之外，其它五种类中每一种类型的值域(所有合法的值的集合)中值的数目有限且其中的值排列有序，其每个值在值域中均有一个序数 n，其前后两个值的序数分别为 n-1 和 n+1。这样的数据类型称之为顺序类型(ordinal type)，也有些书上翻译成有序类型。整型类型是由数学中的所有整数(包括正整数、负整数和 0)所组成的集合的一个子 集。如其中的 byte 类型表示从 0 至 255 共计 256 个整数；
Delphi编码规范
weixin_30678349的博客
05-29 238
规范 --======== 以下是在之前的公司与别人共同参与制定的Delphi开发规范（5年前了，那时用的还是Delphi7,部分规则可能有些过时，但不整理了，觉得有用的人，自己整理成适合自己的开发规范吧）， 目 录一、序言 二、通用源代码格式规则2.1 缩格2.2 页边空格 2.3 Begin…End 配对 2.4代码文件中通用符号含义 2.5注释写法 三、Object Pascal...
代码创建形式规范 1.0 (for delphi) shunzimm [原作]
07-30 597
本规范的目的：给自己的代码一个统一而标准的外观，增强可读性，可理解性，可维护性本规范的原则：名称反映含义,形式反映结构 1、单元风格2、各区风格3、语句风格4、命名规则 参考：borland官方object pascal风格指南      delphi5程序员指南编码标准    1、单元风格　 {*******************************************
（转）Delphi 编程规范
anranbing3284的博客
03-26 231
Delphi 编程规范【排版规范】----------　　Delphi XE 以上的版本中都有官方的代码格式化工具（Edit -> Format Source），快捷键是 Ctrl + D，用这个工具排版以后的格式就是标准格式了。该工具没有相关的设置方法，我们遵照默认的设置来对我们的代码进行排版。这里对代码的排版规范做一下总结。----------1、缩进　　缩进是指在每一级有两个...
Delphi编程代码规范.doc
06-23
Delphi编程代码规范是指导开发人员编写清晰、一致和易于维护的Delphi代码的重要文档。以下是对规范中提及的关键知识点的详细解释： 1. **源代码格式规则**： - **缩进**：使用两个空格进行缩进，避免使用制表符，...
Delphi 程序员代码编写标准指南.doc
02-13
《Delphi程序员代码编写标准指南》是一份详细阐述如何编写高质量Delphi代码的文档，由Xavier Perche和Steve Teiseira在1998年创作。这份指南旨在帮助开发者遵循一致的编码风格，提高代码的可读性、可维护性和团队...
delphi 计算器（含全部代码）
11-26
本示例程序“Delphi 计算器（含全部代码）”是专为初学者设计的一个教学项目，旨在帮助初学者掌握Delphi的基本编程技巧，以及计算器实现中的关键算法。 1. **基础组件使用**： Delphi的VCL（Visual Component ...
LIBSVM参数实例详解.rar
07-26
神经网络的matlab案例，本案例介绍如下： 技术深度：案例详细介绍了如何使用MATLAB进行深度学习模型的构建、训练和测试。 实际应用：通过具体的图像识别任务，展示模型的实际应用效果，让你直观感受神经网络的强大能力。 代码解析：提供完整的MATLAB代码，并对关键部分进行详细注释，帮助你理解每一步的工作原理。 优化策略：探讨不同的训练策略和参数调整方法，优化模型性能。
基于JAVA在线考试管理系统(源代码+论文+开题报告+外文翻译+英文文献+答辩PPT).rar
07-26
基于JAVA在线考试管理系统(源代码+论文+开题报告+外文翻译+英文文献+答辩PPT).rar
基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip
07-26
【1】项目代码完整且功能都验证ok，确保稳定可靠运行后才上传。欢迎下载使用！在使用过程中，如有问题或建议，请及时私信沟通，帮助解答。 【2】项目主要针对各个计算机相关专业，包括计科、信息安全、数据科学与大数据技术、人工智能、通信、物联网等领域的在校学生、专业教师或企业员工使用。 【3】项目具有较高的学习借鉴价值，不仅适用于小白学习入门进阶。也可作为毕设项目、课程设计、大作业、初期项目立项演示等。 【4】如果基础还行，或热爱钻研，可基于此项目进行二次开发，DIY其他不同功能，欢迎交流学习。 【注意】 项目下载解压后，项目名字和项目路径不要用中文，否则可能会出现解析不了的错误，建议解压重命名为英文名字后再运行！有问题私信沟通，祝顺利！ 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip 基于Energyplus+golang+react+R的urp计算建筑能耗潜力项目源码.zip
中国276个城市发展质量及影响因素检验数据集(2005-2020年)(全新整理)
最新发布
07-26
1、资源内容地址：https://blog.csdn.net/2301_79696294/article/details/140357042 2、代码特点：今年全新，手工精心整理，放心引用，数据来自权威，相对于其他人的控制变量数据准确很多,适合写论文做实证用 ，不会出现数据造假问题 3、适用对象：大学生，本科生，研究生小白可用，容易上手！！！ 3、课程引用: 经济学，地理学，城市规划与城市研究，公共政策与管理，社会学，商业与管理 数据指标说明 以中国276个城市为研究对象，构建了包含创新、协调、绿色、开发、共享5个维度的城市发展质量综合评价指标体系进行了测算。 测算的方法和过程包括运用空间分析、俱乐部收敛检验以及空间计量模型分析了2005-2020年中国城市发展质量的时空演化特征，识别发展质量提升的重要影响因素，得到中国276个城市发展质量及影响因素检验数据集。 该数据集包括以下数据： （1）2005-2020年276个城市发展质量时序变化及收敛俱乐部； （2）东部、东北、中部、西部地区城市发展水平收敛俱乐部； （3）城市发展质量影响因素面板数据和全局Moran’
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值