델파이 속성 실제 세계 예제는 어디에 있습니까?

Question

TMS Aurelius 우리는 "새로운"2010 속성 기능을 사용하여 데이터베이스 테이블 필드를 런타임에 객체 속성에 직렬화 할 수 있음을 알고 있습니다.이 딥 객체 지향 스키마의 전문가는 아니므로 살펴 봅니다. TMS 소스 코드를 직접적으로 구현하는 방법을 이해할 수 없었습니다.

그래서 Google의 모든 결과를 Delphi Attributes에서 찾았습니다. 모든 사람들이 게시하는 사례는 선언 사례이며 사례가 실제로 게재되기 전에 중단됩니다.

그런 다음 실제로 양식/실행 코드 내에서 juiced 클래스를 어떻게 프로젝트, 선언, 코드 및 USE 할 수 있습니까?

누구나 여기에 공유하거나 좋은 기사를 아는 예가 있습니까?

EDIT1 : 많은 있기 때문에

이 대답은 그냥 속성과 클래스 인터페이스를 보여주는 대답하지 않는, 클릭하면 생성 된 속성 클래스의 일부 사용을 실행 TButton와 TForm을 가져야한다 전에 말했던 그 선언 예제들 중

Answer 1

, 당신은 이런 식으로 작업을 수행 할 수 있습니다

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

속성은 TCustomAttribute이있는 일반 클래스입니다을 조상으로 사용합니다. 당신은 평소와 같이 그것을 구현 :

implementation 

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

이제 속성이 선언 및 구현

, 당신은 단지 그것을 사용할 수 있습니다

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

을 이제 당신은 속성이 선언 및 구현하고 추가를 사용하고있다 어떤 클래스의 표시 레이블. 마지막 단계는 해당 속성을 사용하는 것입니다. 클래스 을으로 장식했기 때문입니다. 속성을 사용하는 코드는 속성이나 데코 레이팅 된 클래스에 상주하지 않으며 장식을 사용할 서비스 계층에 구현됩니다.

의 우리가 클래스의 수 표시 레이블을 반환하는 클래스가 있다고 가정 해 봅시다 :

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

클래스를 검사하고 그 표시 라벨을 반환 방법은, 존재하는 주어진합니다.

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; 

Answer 2

나는 어떤 종류의 예제가 필요한지 잘 모르겠다. http://docwiki.embarcadero.com/RADStudio/XE4/en/Overview_of_Attributes의 IMHO는 필요한 모든 것입니다. 아마도 주석 및/또는 애스펙트 프로그래밍에 대한 기본 지식을 갖추고 있어야합니다.

예는 특정 SW 작성자가 속성을 사용하는 방식/목적에 따라 다릅니다. 당신은 ORM 시스템에 대해 언급했습니다. 일반적인 사용법은 DB 엔터티를 나타내는 클래스 멤버에게 이러한 프레임 워크의 백엔드에서 DB 작업에 필요한 추가 정보를 주석으로 추가하는 것입니다. NOT NULL 당신은 DB 엔티티 가진 필드 회사 CHAR (32)가 가정 해 봅시다 당신은 델파이 클래스를 대표 할 : 생성자

constructor TCharColumn.Create(const AFieldName:string; ALength:integer; ANullable:boolean); 
begin 
    inherited; 
    FName := AFieldName; 
    FLength := ALength; 
    FNullable := ANullable; 
end; 

그리고 사용과 TCharColumn을

TSomeDBEntity = class(...) 
    FCDS: TClientDataset; 
    ... 
    constructor Create; 
    ... 
    [TCharColumn('COMPANY', 32, false)] 
    property CompanyName: string read GetCompanyName write SetCompanyName; 
end; 

는 다음 속성을 정의합니다 같은 주석의이 같은 것을 볼 수 있었다 :

FCDS := TClientDataset.Create(nil); 
RttiContext := TRttiContext.Create; 
try 
    RttiType := RttiContext.GetType(self.ClassType); 
    Props := RttiType.GetProperties; 
    for Prop in Props do 
    begin 
     Attrs := Prop.GetAttributes; 
     case Prop.PropertyType.TypeKind of 
     tkUString: 
      begin 
      for Attr in Attrs do 
       if Attr is TCharColumn then 
       begin 
       ColAttr := TCharColumn(Attr); 
       FCDS.FieldDefs.Add(ColAttr.FName, ftString, ColAttr.FLength, not ColAttr.FNullable); 
       end; 
      end; 
     else 
      //... ; 
     end; 
    end; 
finally 
    RttiContext.Free; 
end; 

프로그램의이 작품은 델파이 주석에 따라 런타임에 데이터 집합의 필드를 정의하는 방법을 설명합니다. 우리는 명명 된 매개 변수가 부족하여 제한되어 있으므로 매개 변수 목록을 사용하면 유연하지 않습니다. 문제는 속성 사용의 실제 사례를 요구하는 경우와 같은 자바 (비교 TMS 아우렐리우스 주석이 http://www.tmssoftware.com/site/manuals/aurelius_manual.pdf 및 http://www.techferry.com/articles/hibernate-jpa-annotations.html

Answer 3

확실하지 않음을 설정 또는 속성을 사용하여 개체에 DB 테이블을 직렬화하는 방법에 대해 설명합니다. 아래의 예는 인위적인 간단한 하나입니다 (하지만 그보다 작은 예는 속성을 사용하여 객체 속성에 대한 변경 사항을 기록하는 방법을 보여줍니다.

속성

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; 

는 "loggable 속성을"이있는 모든 클래스를 사용하여 TProduct

//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; 

클래스의 "안녕하세요"사용자 정의 속성 정의 반복이 메서드에 전달 될 수있다 속성을 통해 그들을 기록합니다.

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; 

end; 사용

예 : 당신이 당신 자신의 속성을 선언 할 경우

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);