zoukankan      html  css  js  c++  java
  • delphi程序设计改进可读性一法

    Delphi,Lazarus程序设计改进一法

     

    作者:steven

    QQ:1565498246

    Delphi/Lazarus有一个思想就是方法、函数名调用,后边可以不使用括号(),比如调用函数Now,这使得程序看上去是访问一个局部变量,降低了程序可读性,所以本方法提出:

    1.将局部变量加小写L前缀;

    2.将方法调用全部加(),防止和变量名混淆,使代码可读性降低。比如调用函数Now ,正确的方法是 : Now()

     

    我们来看具体实例:

     

     

    unit Unit1;

     

    {$mode objfpc}{$H+}

     

    interface

     

    uses

      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

     

    type

     

      { TfrmMain }

     

      TfrmMain = class(TForm)

        btnTest: TButton;

        procedure btnTestClick(Sender: TObject);

      private

        { private declarations }

      public

        { public declarations }

      end;

     

    var

      frmMain: TfrmMain;

     

    implementation

     

    {$R *.lfm}

     

    { TfrmMain }

     

    procedure TfrmMain.btnTestClick(Sender: TObject);

    var lNow:Tdatetime;

    begin

      lNow := Now();  //这里的Now() 过程本来按pascal语法可以不要(),但可能和下面的代码混淆

      self.caption := formatdatetime('yyyy-MM-dd',lNow);

     

    end;

     

    end.

     

    ===================================================

    unit Unit1;

     

    {$mode objfpc}{$H+}

     

    interface

     

    uses

      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

     

    type

     

      { TfrmMain }

     

      TfrmMain = class(TForm)

        btnTest: TButton;

        procedure btnTestClick(Sender: TObject);

      private

        { private declarations }

      public

        { public declarations }

      end;

     

    var

      frmMain: TfrmMain;

     

    implementation

     

    {$R *.lfm}

     

    { TfrmMain }

     

    procedure TfrmMain.btnTestClick(Sender: TObject);

    var Now:Tdatetime;

    begin

      //Now := ;

      self.caption := formatdatetime('yyyy-MM-dd',Now);  //我们可以 ,这里的now不是调用的标准库的函数

     

    end;

     

    End.

     

    输出的是没有初始化的日期数据。

     

     

     

    同样,我们需要将方法,自定义函数,过程,都加上(),举例如下:

     

    unit Unit1;

     

    {$mode objfpc}{$H+}

     

    interface

     

    uses

      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

     

    type

     

      { TfrmMain }

     

      TfrmMain = class(TForm)

        btnTest: TButton;

        procedure btnTestClick(Sender: TObject);

      private

        { private declarations }

      public

        { public declarations }

        procedure test();

      end;

     

    var

      frmMain: TfrmMain;

     

    implementation

     

    {$R *.lfm}

     

    { TfrmMain }

     

    procedure TfrmMain.btnTestClick(Sender: TObject);

    var Now:Tdatetime;

    begin

      //Now := ;

      //self.caption := formatdatetime('yyyy-MM-dd',Now);

      test();

    end;

     

    procedure TfrmMain.test();

    begin

      self.caption := 'this is a test';

    end;

     

    end.

     

    <a href="http://files.cnblogs.com/stevenlaz/Delphi%2CLazarus%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E6%94%B9%E8%BF%9B%E4%B8%80%E6%B3%95.pdf">本文PDF格式下载</a>

     

     

  • 相关阅读:
    hdu5233 Gunner II
    hdu5247 找连续数
    hdu5246 超级赛亚ACMer
    codeforces Looksery Cup 2015 C. The Game Of Parity
    Spring系列之Spring常用注解总结
    jni不通过线程c回调java的函数 --总结
    Spring声明周期的学习心得
    java web20套项目
    jsp和servlet的关系
    JavaWeb开发之四:servlet技术 黑马程序员_轻松掌握JavaWeb开发之四Servlet开发 方立勋老师视频教程相当的经典
  • 原文地址:https://www.cnblogs.com/stevenlaz/p/3311468.html
Copyright © 2011-2022 走看看