Rttiを試して見るその２(プリズム版）

別ブログで書いたDelphi2010のメソッドコールの
ソースと同等のソースをDelphi Prismで書いてみた。

view plainprint?

1. namespace WindowsApplication1;  
2.   
3. interface  
4.   
5. uses  
6.   System.Drawing,  
7.   System.Collections,  
8.   System.Collections.Generic,  
9.   System.Linq,  
10.   System.Windows.Forms,  
11.   System.ComponentModel,  
12.   System.Reflection;  
13.   
14.   
15. type  
16.   /// <summary>  
17.   /// Summary description for MainForm.  
18.   /// </summary>  
19.   MainForm = partial class(System.Windows.Forms.Form)  
20.   private  
21.     method button1_Click(sender: System.Object; e: System.EventArgs);  
22.   protected  
23.     method Dispose(disposing: Boolean); override;  
24.   public  
25.     constructor;  
26.     method SakaSum(a, b : Integer) : Integer;  
27.   end;  
28.   
29. implementation  
30.   
31. {$REGION Construction and Disposition}  
32. constructor MainForm;  
33. begin  
34.   //  
35.   // Required for Windows Form Designer support  
36.   //  
37.   InitializeComponent();  
38.   
39.   //  
40.   // TODO: Add any constructor code after InitializeComponent call  
41.   //  
42. end;  
43.   
44. method MainForm.Dispose(disposing: Boolean);  
45. begin  
46.   if disposing then begin  
47.     if assigned(components) then  
48.       components.Dispose();  
49.   
50.     //  
51.     // TODO: Add custom disposition code here  
52.     //  
53.   end;  
54.   inherited Dispose(disposing);  
55. end;  
56. {$ENDREGION}  
57.   
58. method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);  
59. var  
60.   rtm : System.Reflection.MethodInfo;  
61.   Args : Array of System.Object;  
62.   Rst : System.Object;  
63.   MyType : System.Type;  
64. begin  
65.   MyType := System.Type.GetType('WindowsApplication1.' + Self.Name);  
66.     
67.   rtm := MyType.GetMethod('SakaSum');  
68.     
69.   if rtm <> nil Then  
70.   begin  
71.   
72.     Args := new System.Object[2];  
73.     Args[0] := Convert.ToInt32(textBox1.Text);  
74.     Args[1] := Convert.ToInt32(textBox2.Text);  
75.     Rst := rtm.Invoke(Self,Args);  
76.     label5.Text := Rst.ToString();  
77.   
78.   end;  
79. end;  
80.   
81. method MainForm.SakaSum(a, b : Integer) : Integer;  
82. begin  
83.   Result := a + b;  
84. end;  
85.   
86. end.  

namespace WindowsApplication1;

interface

uses
  System.Drawing,
  System.Collections,
  System.Collections.Generic,
  System.Linq,
  System.Windows.Forms,
  System.ComponentModel,
  System.Reflection;


type
  /// 

  /// Summary description for MainForm.
  /// 
  MainForm = partial class(System.Windows.Forms.Form)
  private
    method button1_Click(sender: System.Object; e: System.EventArgs);
  protected
    method Dispose(disposing: Boolean); override;
  public
    constructor;
    method SakaSum(a, b : Integer) : Integer;
  end;

implementation

{$REGION Construction and Disposition}
constructor MainForm;
begin
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent();

  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

method MainForm.Dispose(disposing: Boolean);
begin
  if disposing then begin
    if assigned(components) then
      components.Dispose();

    //
    // TODO: Add custom disposition code here
    //
  end;
  inherited Dispose(disposing);
end;
{$ENDREGION}

method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
var
  rtm : System.Reflection.MethodInfo;
  Args : Array of System.Object;
  Rst : System.Object;
  MyType : System.Type;
begin
  MyType := System.Type.GetType('WindowsApplication1.' + Self.Name);
  
  rtm := MyType.GetMethod('SakaSum');
  
  if rtm <> nil Then
  begin

    Args := new System.Object[2];
    Args[0] := Convert.ToInt32(textBox1.Text);
    Args[1] := Convert.ToInt32(textBox2.Text);
    Rst := rtm.Invoke(Self,Args);
    label5.Text := Rst.ToString();

  end;
end;

method MainForm.SakaSum(a, b : Integer) : Integer;
begin
  Result := a + b;
end;

end.