我知道通过TMS Aurelius，我们可以使用“新”的2010属性功能在运行时将数据库表字段序列化为对象属性，例如，我不是这种深度面向对象模式的专家，所以我查看了TMS源代码，但无法理解如何自己实现它，无论是对于DB还是XML。
因此，我搜索了所有谷歌上关于Delphi Attributes的结果，所有人都发布了声明示例，然后甚至在展示他们的示例之前就停止了。
那么，在哪里可以找到真实世界的示例，说明如何投影、声明、编码和使用这些增强的类在一个表单/执行代码中？
有人在这里分享一个示例或者知道一篇完整的好文章吗？
编辑1：
答案应该有一个带有TButton的TForm，当点击时，执行一些创建的属性类的用途，不要仅仅展示属性和类接口，因为像我之前说过的那样，有许多这样的声明示例。
TSomeDBEntity = class(...)
FCDS: TClientDataset;
...
constructor Create;
...
[TCharColumn('COMPANY', 32, false)]
property CompanyName: string read GetCompanyName write SetCompanyName;
end;
constructor TCharColumn.Create(const AFieldName:string; ALength:integer; ANullable:boolean);
begin
inherited;
FName := AFieldName;
FLength := ALength;
FNullable := ANullable;
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;
Create方法时，框架将读取数据库并允许我们键入MyString := MyORM.TableName.TableField;，而在您的示例中，您必须声明[TCharColumn('COMPANY', 32, false)]。我是否误解了属性的真正用途？ - NaN如果你想声明自己的属性，可以这样做：
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;
不确定问题是要求属性使用的真实世界示例还是如何使用属性将数据库表序列化为对象。下面的示例是一个虚构的简单示例（但仍然是一个示例），展示如何使用属性记录对象属性的更改。
定义您的自定义属性
//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;
使用属性的类TProduct的“hello world”示例
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;
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;
结束;
使用示例:
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);
[Loggable('test')]。 - Johan