Delphi 2010のRTTIと属性について簡単に説明します

RTTI（Runtime Type Information）は、Delphi 2010で慎重に再設計されました 。

RTTIはDelphi IDEが書かれた中心的な要素であり、最初のリリース以来存在していますが、RTTIを使用しようとして、特にJavaの Reflection APIに比べて複雑すぎて複雑であると長年聞いた人もいます。そして。 NET 事前にタイプを知らずに他のオブジェクトに関する詳細な情報を要求するコードを書く機能は非常に強力な機能であるため、これは非常に残念です。



ただし、新しいAPIでは苦情は過去のものになると思います 。 拡張されただけでなく、はるかにアクセスしやすく使いやすくなりました。



私が非常に感銘を受けた新機能の1つは、 Win32環境での属性のサポートです。 私は素晴らしい例に取り組んでいますが、ここではカスタム属性の作成とリクエストについて簡単に説明します。



カスタム属性は、 TCustomAttributeを継承する単なるクラスです。 他のクラスと同様に、プロパティ、メソッドなどを持つことができます。

MyAttribute = class(TCustomAttribute)

 private

  FName: string;

  FAge: Integer;

 public

  constructor Create(const Name : string; Age : Integer);

  property Name : string read FName write FName;

  property Age : Integer read FAge write FAge;

 end;

, .



:

TMyClass = class

 public

  [MyAttribute('Malcolm', 39)]

  procedure MyProc(const s : string);

  [MyAttribute('Julie', 37)]

  procedure MyOtherProc;

 end;

, . . , , , .



, , -, , API RTTI , ListBox:

procedure TForm3.Button1Click(Sender: TObject);

var

 ctx : TRttiContext;

 t : TRttiType;

 m : TRttiMethod;

 a : TCustomAttribute;

begin

 ListBox1.Clear;

 ctx := TRttiContext.Create;

 try

  t := ctx.GetType(TMyClass);

  for m in t.GetMethods do

   for a in m.GetAttributes do

    if a is MyAttribute then

     ListBox1.Items.Add(Format('Method = %s; Attribute = %s, Name = %s, Age = %d',

                  [m.Name, a.ClassName, MyAttribute(a).Name,

                   MyAttribute(a).Age]));

 finally

  ctx.Free;

 end;

end;

RTTI , ClassType . for..in , for..in . , , Name Age, ListBox.







, , , , , Delphi 2010.

---

.

translated.by/you/rtti-and-attributes-in-delphi-2010/into-ru

: r3code