关于Record类型RTTI反射的用途和方法

最新推荐文章于 2024-06-12 11:51:39 发布

转载最新推荐文章于 2024-06-12 11:51:39 发布 · 2.2k 阅读

文章标签：

#delphi #button #forms #windows #string

编程语言-Delphi 专栏收录该内容

305 篇文章

订阅专栏

本文介绍如何使用Delphi的RTTI反射机制简化多语言软件的变量管理。通过记录类型和TXT配置文件实现变量的自动读取与赋值，有效减少代码量并提高维护效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题的引入：

准备做一个多国语言软件，发现信息变量（都是字符串）数量庞大，如果简单的通过 “变量=readstring”从ini文件中获取的话，几百个变量就是几百行，这个工作量非常大，而且也不易维护。如果使用RTTI反射机制，未来变量变化时，赋值程序不用修改，只需修改变量结构，这是一劳永逸的做法。

注意：本例程使用delphi2010，delphi老版本不支持record类型的反射。如果使用老版本，需把record类型换为自定义类，这里只演示使用Record类型的方法。

办法如下：

先在C盘建立一个文本文件 c:/vars.txt ，内容如下（key值大小写均可）

name=SUNSTONE
age=37
sex=男
address=吉林省长春市

程序如下：

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

TmyRec = record
Name, Age, Sex, Address: string;
end;

var
Form2: TForm2;

implementation

uses rtti;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
VarList: TStrings;
MyVar: TmyRec;
RTX: TRttiContext;
RT: TRttiType;
RF: TRttiField;
begin
Memo1.Clear;
VarList := TStringList.Create;
try
// 读取变量文件
VarList.LoadFromFile('c:/vars.txt');

    // Record类型的RTTI反射
    RT := RTX.GetType(TypeInfo(TmyRec));
    for RF in RT.AsRecord.GetFields do
    begin
      Memo1.Lines.Add(RF.Name);
      RF.SetValue(@MyVar, VarList.Values[RF.Name]);
    end;
finally
    VarList.Free;
end;

// 检查结果
Memo1.Lines.Add('');
Memo1.Lines.Add('----检查结果----');
Memo1.Lines.Add('Name: ' + MyVar.Name);
Memo1.Lines.Add('Age: ' + MyVar.Age);
Memo1.Lines.Add('Sex: ' + MyVar.Sex);
Memo1.Lines.Add('Address: ' + MyVar.Address);
end;

end.

本文来自优快云博客，转载请标明出处：http://blog.youkuaiyun.com/sunstone/archive/2009/11/17/4819048.aspx