通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Rtti; //TRttiContext.GetTypes procedure TForm1.Button1Click(Sender: TObject); var ctx: TRttiContext; t: TRttiType; begin Memo1.Clear; for t in ctx.GetTypes do Memo1.Lines.Add(t.Name); end; //获取 TButton 类的方法 procedure TForm1.Button2Click(Sender: TObject); var ctx: TRttiContext; t: TRttiType; m: TRttiMethod; begin Memo1.Clear; t := ctx.GetType(TButton); //for m in t.GetMethods do Memo1.Lines.Add(m.Name); for m in t.GetMethods do Memo1.Lines.Add(m.ToString); end; //获取 TButton 类的属性 procedure TForm1.Button3Click(Sender: TObject); var ctx: TRttiContext; t: TRttiType; p: TRttiProperty; begin Memo1.Clear; t := ctx.GetType(TButton); //for p in t.GetProperties do Memo1.Lines.Add(p.Name); for p in t.GetProperties do Memo1.Lines.Add(p.ToString); end; //获取 TButton 类的字段 procedure TForm1.Button4Click(Sender: TObject); var ctx: TRttiContext; t: TRttiType; f: TRttiField; begin Memo1.Clear; t := ctx.GetType(TButton); //for f in t.GetFields do Memo1.Lines.Add(f.Name); for f in t.GetFields do Memo1.Lines.Add(f.ToString); end; //获取获取 TButton 类的方法集合、属性集合、字段集合 procedure TForm1.Button5Click(Sender: TObject); var ctx: TRttiContext; t: TRttiType; ms: TArray<TRttiMethod>; ps: TArray<TRttiProperty>; fs: TArray<TRttiField>; begin Memo1.Clear; t := ctx.GetType(TButton); ms := t.GetMethods; ps := t.GetProperties; fs := t.GetFields; Memo1.Lines.Add(Format('%s 类共有 %d 个方法', [t.Name, Length(ms)])); Memo1.Lines.Add(Format('%s 类共有 %d 个属性', [t.Name, Length(ps)])); Memo1.Lines.Add(Format('%s 类共有 %d 个字段', [t.Name, Length(fs)])); end; end.
