【delphi程序设计改进可读性一法】

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.