Delphi - 新语法之类相关的

技术交流,DH讲解.

今天就把Delphi新语法中与类相关都讲了.

1 静态系列.
静态成员变量,静态方法,静态属性.
静态方法只能使用静态成员变量或者其他常量.
一个例子:

type
  TMyClass = class
    strict private
      class var
        FX: Integer;
    strict protected  
      	class function GetX: Integer; static;
	class procedure SetX(val: Integer); static;
    public
	class procedure StatProc(s: String); static;
      	class property X: Integer read GetX write SetX;
  end;

TMyClass.X := 17;
TMyClass.StatProc('Hello');

静态属性的存取方法也要是静态的.

我们可以看到就是一个class关键字.

2 内部类.
内部类这个概念,我最早是在张孝祥的<<Java就业培训教程>>看见的.现在Delphi也支持这个了.

type
  TOuterClass = class
  strict private
	MyField: Integer;
  public
	type
      		TInnerClass = class
	  	public
        		MyInnerField: Integer;
			procedure InnerProc;
      		end;
	procedure OuterProc;
  end;

procedure TOuterClass.TInnerClass.InnerProc;
begin
  ...
end;

至于这个有什么用,我也不是很清楚的.应该就是可见性上面的区别.

3 可见性.
在Delphi里面private里面东西,继承类,外部类都可以访问.

  THuangJacky = class
  private
    FName:string;
  end;

  TTheFiend = class(THuangJacky)
  public
    procedure SayMyName;
  end;

{ TTheFiend }

procedure TTheFiend.SayMyName;
begin
  ShowMessage(FName);
end;

肯定有人大呼,违反了面向对象,然后进行一轮批斗.
其实面向对象有很多弊端了.不然怎么很多框架核心地方都要用汇编来写,VCL里面很多代码为了效率也是用的汇编.
当然Delphi为了不落人口实,就加入了关键字Strict.

  THuangJacky = class
  strict private
    FName:string;
  end;

  TTheFiend = class(THuangJacky)
  public
    procedure SayMyName;
  end;

{ TTheFiend }

procedure TTheFiend.SayMyName;
begin
  ShowMessage(FName);//Error Here
end;

这样就回归正常了,当然还有strict protected,这样就符合面向对象了.
毕竟Delphi不像Java和C#那样是纯面向对象的.

4 终结.
不知道中文怎么说的来的,好久没有看C#入门经典了.
用sealed 修饰一个类,这个类就不能继承了.
用final修饰一个方法,这个方法就不能重写了override.
看例子:

  TAbstractClass = classabstract
  public
    procedure Bar; virtual;
  end;

  TSealedClass = class sealed(TAbstractClass)
  public
    procedure Bar; override;
  end;

  TFinalMethodClass = class(TAbstractClass)
  public
    procedure Bar; override; final;
  end;

继续驶向面向对象的彼岸的杰作.

好了,今天的主题就结束,接下来文章会介绍D2009后加入的泛型,匿名方法等.

我是DH,就到这里.