Rtti 单元(5): 获取方法的更多信息

方法的更多信息是指: 方法类型、返回值、参数等.

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Memo1:　TMemo;　
　　Button1:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　Rtti,TypInfo;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　ms:　TArray<TRttiMethod>;　
　m:　TRttiMethod;　
　mps:　TArray<TRttiParameter>;　
　mp:　TRttiParameter;　
begin　
　Memo1.Clear;　
　
　{先获取方法集合,　这里随便使用了　TButton　类}　
　ms　:=　TRttiContext.Create.GetType(TButton).GetMethods;　
　for　m　in　ms　do　
　begin　
　　{方法名称}　
　　Memo1.Lines.Add('方法名称:　'　+　m.Name);　
　
　　{方法类型:　proceedure、function　等}　
　　Memo1.Lines.Add('方法类型:　'　+　GetEnumName(TypeInfo(TMethodKind),　Ord(m.MethodKind)));　
　
　　{方法的返回值类型}　
　　if　Assigned(m.ReturnType)　then　
　　　Memo1.Lines.Add('返回值:　'　+　GetEnumName(TypeInfo(TTypeKind),　Ord(m.ReturnType.TypeKind)));　
　
　　{方法的参数列表}　
　　mps　:=　m.GetParameters;　
　　if　Length(mps)　>　0　then　
　　begin　
　　　Memo1.Lines.Add('参数:');　
　　　for　mp　in　mps　do　Memo1.Lines.Add(mp.ToString);　
　　　//还可以通过　mp.ParamType　获取参数的数据类型　
　　　//还可以通过　mp.Flags　获取参数的修饰符(譬如　var、const　等)　
　　end;　
　
　　Memo1.Lines.Add(EmptyStr);　
　end;　
end;　
　
end.