巧用Delphi 2010新 RTTI 管理常量(Const)

时间：2011/9/3 15:28:39 点击：

　　核心提示：有那么一种常量，你希望常量的名称和真实的常量值一样，比如，用于作配置文件的常量。当然，如果你不觉得辛苦，一般来说，常量名和常量值逐个敲出来，也无可厚非。但是，如果你还在使用D2010作开发而不发挥新R...

有那么一种常量，你希望常量的名称和真实的常量值一样，比如，用于作配置文件的常量。当然，如果你不觉得辛苦，一般来说，常量名和常量值逐个敲出来，也无可厚非。但是，如果你还在使用D2010作开发而不发挥新RTTI技术，很显然，你已经Out了，不随波逐流使用新技术，连“走马观花”赏花的机会也没有。

为了方便管理常量，我们需要声明一个记录类型。为啥使用记录类型而不是类呢？因为记录类型不用创建和释放，其次，记录比类更节省系统资源。

    //参数的名称信息，用于常量设置，都是字符串
TParamName = record
    Socket:string;
    System:string;
    DBConfig:string;
    //通讯参数
    ThreadCount:string;
    Port:string;
    SessionLife:string;
    TimeOut:string;
    ZipRate:string;
    Encrypt:string;
    //系统参数
    AutoRun:string;
    SocketLog:string;
    BusinessLog:string;
    DBLog:string;
    //数据库配置
    Server:string;
    Provider:string;
    DataBase:string;
    DBPort:string;
    UserName:string;
    UserPswd:string;
    Pooling:string;
    PoolMax:string;
    PoolMin:string;
    PoolLife:string;
end;

------------我们使用一个新的方法管理记录类型的 RTTI--------------------------------------

uses RTTI;

function TRttiInfo.SetRecordDeftValue(TypeInfoValue, RecValue: Pointer): Boolean;
var
RTX:TRttiContext;
RT:TRttiType;
RF:TRttiField;
iCount:Integer;
begin
Result := False;
try
    RTX := TRttiContext.Create;
    RT := RTX.GetType(TypeInfoValue);
    iCount := 0;
    for RF in RT.AsRecord.GetFields do
    begin
        RF.SetValue(RecValue,RF.Name);
        Inc(iCount);
    end;
    Result := iCount >0;
finally
    RTX.Free;
end;