delphi strict final用途

整理一下delphi2007后一些不常用的语法

关键字：strict
private域下成员变量或方法加了此修饰符，该类的子类将无法访问private域下的变量和方法。

  TAbstractClass = class abstract
  private
    FID: string;
  strict private      //加了strict标记，继承类无法访问
    FName: string;
  public
    class var FVar: string;
    procedure print(); virtual;
  end;
  
  TExtendClass = class (TAbstractClass)
  public
    procedure print();override;
  end;
  
...

procedure TExtendClass .print;
begin
  ShowMessage(FID);      //访问了父类的private
//  ShowMessage(FName);  //无法访问FName
end;

关键字：sealed
这个是delphi借鉴于C#的语法，类申明时加上了此修饰符，表示该类无法被继承了。

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

//下面的代码，编译器通过不了编译：
  TSealedExtendClass = class(TSealedClass)      //cannot extend 
  public
    procedure print();override;
  end;

关键字：final
用于方法的后修饰，表明该方法不能被覆盖。

  TFinalClass = class(TAbstractClass)
  public
    procedure print(); override; final;
  end;

//print方法不能被覆盖
  TFinalExtendClass = class(TFinalClass)
  public
//    procedure print();override;     //cannot override a final method
  end;

Class var语法
可修饰于成员变量前，表明该变量由类直接持有，有点类似于类方法class function，类可以直接调用访问。
这个变量，类不需要实例化就可以调用，并且全局共享该变量。

TAbstractClass = class abstract
  private
    FID: string;
  strict private      //加了strict标记，继承类无法访问
    FName: string;
  public
    class var FVar: string;
    procedure print(); virtual;
  end;

...

procedure test1();
begin
  TAbstractClass.FVar := 'test';
  ShowMessage(TAbstractClass.FVar); 	    //test
end;

procedure test2();
begin
  ShowMessage(TAbstractClass.FVar); 		//test
end;