Delphi 12.1 verfügbar/veröffentlicht

[haentschman]

Zitat:

Es ruiniert jetzt keine strict private oder strict protected blöcke mehr in der Klassendeklaration!

vorher:

Delphi-Quellcode:

  TArticlePrices = class(TBaseObject)
  strict private
  {$REGION 'Fields'}
    FArticlePriceList: TArticlePriceList;
    FArticlePriceCustomerList: TArticlePriceCustomerList;
  {$ENDREGION}
  public
    constructor Create;
    destructor Destroy; override;
    property ArticlePriceList: TArticlePriceList read FArticlePriceList write FArticlePriceList;
    property ArticlePriceCustomerList: TArticlePriceCustomerList read FArticlePriceCustomerList write FArticlePriceCustomerList;
    property Test: Double read FTest write FTest; // -> Ctrl+Shift+C
  end;

nachher:

Delphi-Quellcode:

  TArticlePrices = class(TBaseObject)
  strict private
  {$REGION 'Fields'}
    FArticlePriceList: TArticlePriceList;
    FArticlePriceCustomerList: TArticlePriceCustomerList;
  private
    FTest: Double;
  {$ENDREGION}
  public
    constructor Create;
    destructor Destroy; override;
    property ArticlePriceList: TArticlePriceList read FArticlePriceList write FArticlePriceList;
    property ArticlePriceCustomerList: TArticlePriceCustomerList read FArticlePriceCustomerList write FArticlePriceCustomerList;
    property Test: Double read FTest write FTest;
  end;