根据属性值

Question

德尔福RTTI设定值I类有这样

TuserClass = class 
private 
FUtilisateurCode: string; 
FUtilisateurCle: string; 
public 
procedure SetCodeInt(ACode: string; AValue: string); 
published 
[CodeInt('2800')] 
property UtilisateurCode: String read FUtilisateurCode write FUtilisateurCode; 
[CodeInt('2801')] 
property UtilisateurCle: String read FUtilisateurCle write FUtilisateurCle; 
end; 

procedure TuserClass.SetCodeInt(ACode: string; AValue: string); 
begin 
    // what I want to is making this by RTTI to set good value to good CodeInt 
    if ACode = '2800' then FutilisateurCode := AValue 
    else if ACode = '2801' then FUtilisateurCle := AValue; 
end; 

我想用我的SetCodeInt程序，以填补我的财产的价值，但我有问题。 我需要做什么？

Answer 1

需要自定义属性类：

type 
    CodeIntAttribute = class(TCustomAttribute) 
    private 
    FValue: Integer; 
    public 
    constructor Create(AValue: Integer); 
    property Value: Integer read FValue; 
    end; 
.... 
constructor CodeIntAttribute.Create(AValue: Integer); 
begin 
    inherited Create; 
    FValue := AValue; 
end; 

我选择做价值，这似乎不是一个字符串比较合适的整数。

然后定义的属性是这样的：

[CodeInt(2800)] 
property UtilisateurCode: string read FUtilisateurCode write FUtilisateurCode; 
[CodeInt(2801)] 
property UtilisateurCle: string read FUtilisateurCle write FUtilisateurCle; 

最后的SetCodeInt实现如下：

procedure TUserClass.SetCodeInt(ACode: Integer; AValue: string); 
var 
    ctx: TRttiContext; 
    typ: TRttiType; 
    prop: TRttiProperty; 
    attr: TCustomAttribute; 
    codeattr: CodeIntAttribute; 
begin 
    typ := ctx.GetType(ClassType); 
    for prop in typ.GetProperties do 
    for attr in prop.GetAttributes do 
     if attr is CodeIntAttribute then 
     if CodeIntAttribute(attr).Value=ACode then 
     begin 
      prop.SetValue(Self, TValue.From(AValue)); 
      exit; 
     end; 
    raise Exception.CreateFmt('Property with code %d not found.', [ACode]); 
end;