Wo sind die Delphi-Attribute der Realen Welt Beispiele dafür?

Wenn Sie möchten, erklären Sie eigene attribute, die Sie tun können, Sie es wie folgt:

type
  TDisplayLabelAttribute = class(TCustomAttribute)
  private
    FText: string;
  public
    constructor Create(const aText: string);
    property Text: string read FText write FText;
  end;

Ein Attribut ist eine reguläre Klasse, dass hat der TCustomAttribute als sein Vorgänger. Implementieren Sie es wie gewohnt:

implementation

constructor TDisplayLabelAttribute.Create(const aText: string);
begin
  FText := aText;
end;

Nun das Attribut deklariert und implementiert, können Sie es einfach verwenden:

[DisplayLabel('My Class')]
TMyClass = class
end;

So, jetzt haben Sie ein Attribut deklariert und implementiert-und Sie haben es genutzt, um add eine Anzeige-label an einer Klasse. Die Letzte phase ist die Verwendung dieses Attributs, da haben Sie eine Klasse dekoriert mit ihm. Der code, der verwendet das Attribut nicht, befindet sich im Attribut noch die dekorierte Klasse, die es implementiert ist, in der service-Schicht, die Dekoration.

Lassen Sie uns sagen, dass wir eine Klasse haben, gibt eine möglich Anzeige Bezeichnung für eine Klasse:

type
  TArtifactInspector = class
  public
    class function DisplayLabelFor(aClass: TClass): string;
  end;

Dass die Methode prüft dann, ob eine Klasse und gibt die angezeigte Beschriftung, da es existiert. Ansonsten ist es eine leere Zeichenfolge zurück:

implementation

uses
  Rtti;

class function TArtifactInspector.DisplayLabelFor(aClass: TClass): string;
var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  attribute: TCustomAttribute;
begin
  rttiContext := TRttiContext.Create;
  try
    rttiType := rttiContext.GetType(aClass);
    for attribute in rttiType.GetAttributes do
      if attribute is TDisplayLabelAttribute then
        Exit(TDisplayLabelAttribute(attribute).Text);
    Result := '';
  finally
    rttiContext.Free;
  end; // try to recover and return the DisplayLabel
end;

Nicht sicher, ob die Frage fragt nach der realen Welt Beispiele dafür-Attribut verwenden, oder das serialisieren db-Tabellen in Objekte mit Attributen. Das Beispiel unten ist eine erfundene einfache (aber ein Beispiel, nichts weniger als das) zeigt, wie die Attribute Protokollierung von änderungen an Objekt-Eigenschaften.

Definieren Sie Ihr benutzerdefiniertes Attribut

//By convention attributes are *not* prefixed with a `T` 
//and have the word `Attribute` in their name
LoggableAttribute = class(TCustomAttribute)
  private
    FDescription : String;
  public
    constructor Create(Description: String);
    property Description: String read FDescription;
  end;

Den "Hallo Welt" der Klassen TProduct mit dem Attribut

TProduct = Class(TObject)
   private
    FPrice: Double;
    FDescription: String;
    ..
   public  
    [LoggableAttribute('Product Price')]
    property Price : Double read FPrice write SetPrice;
    [Loggable('Product Description')]   {the `Attribute` part is optional}
    property Description : String read FDescription write SetDescription;
    property IsDirty : Boolean read FIsDirty;
  End;

Jede Klasse, die eine "loggable Attribut" übergeben werden kann, um diese Methode zu Durchlaufen und die Eigenschaften und protokollieren Sie.

procedure LogChanges(LoggableClass: TObject);
var
 c : TRttiContext;
 t : TRttiType;
 p : TRttiProperty;
 a : TCustomAttribute;
 Value : TValue;
begin
 c := TRttiContext.Create;    
 try
   t := c.GetType(LoggableClass.ClassType);
   for p in t.getProperties do
     for a in p.GetAttributes do
       if a is TLoggableProperty then begin
         Value := p.GetValue(LoggableClass);   
         // log to db.. 
         AddLogEntry(p.Name, TLoggableProperty(a).Description, Value.ToString);
       end;
 finally
   c.Free;
 end;

Ende;

Anwendungsbeispiel:

var
 P : TProduct;
begin    
 P := TProduct.Create; 
 P.LoadPropertiesFromDB;
 ...
 ... User edits price ...    
 ... 
 P.Price := 499.99;
 ...
 ... Save product to DB 
 if P.IsDirty then  // save and log
   LogChanges(P);