Delphi の属性言語機能を使用して注釈を付けることができる言語要素はどれですか? 質問する

興味深い質問ですね！属性を宣言することができますほとんど何でも問題は、RTTI を使用してそれらを取得することです。以下は、カスタム属性を宣言する簡単なコンソール デモです。

• 列挙型
• 関数タイプ
• 手順の種類
• メソッドタイプ ( of object)
• エイリアス型
• レコードタイプ
• クラスタイプ
• クラス内部のレコード型
• レコードフィールド
• 記録方法
• クラスインスタンスフィールド
• クラスclassフィールド ( class var)
• クラスメソッド
• グローバル変数
• グローバル機能
• ローカル変数

クラスのカスタム属性を宣言する方法が見つかりませんでしたproperty。ただし、カスタム属性は getter メソッドまたは setter メソッドに添付できます。

コード、コードの後に​​物語は続きます:

program Project25;

{$APPTYPE CONSOLE}

uses
  Rtti;

type
  TestAttribute = class(TCustomAttribute);

  [TestAttribute] TEnum = (first, second, third);
  [TestAttribute] TFunc = function: Integer;
  [TestAttribute] TEvent = procedure of object;
  [TestAttribute] AliasInteger = Integer;

  [TestAttribute] ARecord = record
    x:Integer;
    [TestAttribute] RecordField: Integer;
    [TestAttribute] procedure DummyProc;
  end;

  [TestAttribute] AClass = class
  strict private
    type [TestAttribute] InnerType = record y:Integer; end;
  private
    [TestAttribute]
    function GetTest: Integer;
  public
    [TestAttribute] x: Integer;
    [TestAttribute] class var z: Integer;
    // Can't find a way to declare attribute for property!
    property Test:Integer read GetTest;
    [TestAttribute] class function ClassFuncTest:Integer;
  end;

var [TestAttribute] GlobalVar: Integer;

[TestAttribute]
procedure GlobalFunction;
var [TestAttribute] LocalVar: Integer;
begin
end;

{ ARecord }

procedure ARecord.DummyProc;
begin
end;

{ AClass }

class function AClass.ClassFuncTest: Integer;
begin
end;

function AClass.GetTest: Integer;
begin
end;

begin
end.