Rttiを試してみるその４

以前のポストで、可視性がPrivateのメソッドは、読めないということを
記述しましたが、実際には、

自分で定義したメソッドであれば

コンパイラ指定{$RTTI EXPLICIT METHODS}で
TRttiContextのGetMehtodで列挙する可視性を制御することが可能のようです。

{$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcProtected,vcPrivate])}

とすれば、すべての可視性の列挙が可能です。（正し、継承元のメソッドには
可視性の制御は及ばない見たいです。）

また、

{$RTTI EXPLICIT METHODS([vcPrivate])}

とすれば、Private可視性のメソッドの列挙が可能です。

以下、検証ように使ったソースです。

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.  Dialogs, StdCtrls, CheckLst;  
8.   
9. type  
10.  TForm1 = class(TForm)  
11.    Button1: TButton;  
12.    CheckListBox1: TCheckListBox;  
13.    procedure Button1Click(Sender: TObject);  
14.  private  
15.    { Private 宣言 }  
16.  public  
17.    { Public 宣言 }  
18.  end;  
19.   
20. var  
21.  Form1: TForm1;  
22.   
23. implementation  
24.   
25. uses Rtti,Typinfo,Unit2;  
26.   
27. {$R *.dfm}  
28.   
29. procedure TForm1.Button1Click(Sender: TObject);  
30. var  
31.  ctx : TRttiContext;  
32.  rtmary : TArray<rtti.trttimethod>;  
33.  rtm : TRttiMethod;  
34.  obj : TObject;  
35.  Args : Array of TValue;  
36.  rtp : TRttiType;  
37.  idx : Integer;  
38. begin  
39.   
40.  ctx := TRttiContext.Create;  
41.   
42.  //自分で定義したメソッドのみを取得するには、  
43.  //GetDeclaredMethodsを使います。  
44.  rtmary := ctx.GetType(Unit2.TSakaTest).GetDeclaredMethods;  
45.  //rtmary := ctx.GetType(Unit2.TSakaTest).GetMethods();  
46.   
47.  CheckListBox1.Clear;  
48.   
49.  if rtmary <> nil then  
50.  begin  
51.    for rtm in rtmary do  
52.    begin  
53.      idx := CheckListBox1.Items.Add(rtm.Name);  
54.      if rtm.Visibility = TMemberVisibility.mvPrivate then  
55.      begin  
56.          CheckListBox1.Checked[idx] := true;  
57.      end;  
58.   
59.    end;  
60.   
61.  end;  
62.   
63. end;  
64.   
65. end.  
66. </rtti.trttimethod>  

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   CheckListBox1: TCheckListBox;
   procedure Button1Click(Sender: TObject);
 private
   { Private 宣言 }
 public
   { Public 宣言 }
 end;

var
 Form1: TForm1;

implementation

uses Rtti,Typinfo,Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtmary : TArray;
 rtm : TRttiMethod;
 obj : TObject;
 Args : Array of TValue;
 rtp : TRttiType;
 idx : Integer;
begin

 ctx := TRttiContext.Create;

 //自分で定義したメソッドのみを取得するには、
 //GetDeclaredMethodsを使います。
 rtmary := ctx.GetType(Unit2.TSakaTest).GetDeclaredMethods;
 //rtmary := ctx.GetType(Unit2.TSakaTest).GetMethods();

 CheckListBox1.Clear;

 if rtmary <> nil then
 begin
   for rtm in rtmary do
   begin
     idx := CheckListBox1.Items.Add(rtm.Name);
     if rtm.Visibility = TMemberVisibility.mvPrivate then
     begin
         CheckListBox1.Checked[idx] := true;
     end;

   end;

 end;

end;

end.

view plainprint?

1. unit Unit2;  
2. interface  
3.   
4.    uses classes;  
5.   
6. //   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcPrivate])}  
7.   {$RTTI EXPLICIT METHODS([vcPrivate])}  
8.   Type TSakaTest = Class(TObject)  
9.       private  
10.          function SayPrivateMessage : String;  
11.      public  
12.          function SayPublicMessage : String;  
13.   End;  
14.   
15. implementation  
16.   
17. { TSakaTest }  
18.   
19. function TSakaTest.SayPrivateMessage: String;  
20. begin  
21.   Result := 'This is a Private Method';  
22. end;  
23.   
24. function TSakaTest.SayPublicMessage: String;  
25. begin  
26.   Result := 'This is a Public Method';  
27. end;  
28.   
29. end.  

unit Unit2;
interface

   uses classes;

//   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcPrivate])}
  {$RTTI EXPLICIT METHODS([vcPrivate])}
  Type TSakaTest = Class(TObject)
      private
         function SayPrivateMessage : String;
     public
         function SayPublicMessage : String;
  End;

implementation

{ TSakaTest }

function TSakaTest.SayPrivateMessage: String;
begin
  Result := 'This is a Private Method';
end;

function TSakaTest.SayPublicMessage: String;
begin
  Result := 'This is a Public Method';
end;

end.