メソッドを名前で呼び出す

前回の続きです。

関数(function)のメソッドポインタが定義できれば、TObjectのMethodAddressを使って
関数名を（文字で）指定してコールすることが可能です。

以下、サンプルソース。

先ずは、【メソッドポインタ経由で呼び出されるクラスのサンプル】

view plainprint?

1. unit Unit2;  
2.   
3. interface  
4.   
5.   type TMyCalc = class  
6.   published  
7.     function Add(a,b : double) : double;  
8.     function Subtract(a,b : double) : double;  
9.   end;  
10.   
11. implementation  
12.   
13. { TMyCalc }  
14.   
15. function TMyCalc.Add(a, b: double): double;  
16. begin  
17.   Result := a + b;  
18. end;  
19.   
20. function TMyCalc.Subtract(a, b: double): double;  
21. begin  
22.   Result := a - b;  
23. end;  
24.   
25. end.  

unit Unit2;

interface

  type TMyCalc = class
  published
    function Add(a,b : double) : double;
    function Subtract(a,b : double) : double;
  end;

implementation

{ TMyCalc }

function TMyCalc.Add(a, b: double): double;
begin
  Result := a + b;
end;

function TMyCalc.Subtract(a, b: double): double;
begin
  Result := a - b;
end;

end.

MethodAddressを使用するためにpublishedを指定してることに注意願います。

次に、【関数名を文字列で指定して処理を呼び出すサンプル】

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     Button1: TButton;  
12.     Button2: TButton;  
13.     LabeledEdit1: TLabeledEdit;  
14.     LabeledEdit2: TLabeledEdit;  
15.     StaticText1: TStaticText;  
16.     StaticText2: TStaticText;  
17.     procedure OnCalcBtnClick(Sender: TObject);  
18.   private  
19.     { Private 宣言 }  
20.   public  
21.     { Public 宣言 }  
22.   end;  
23.   
24. var  
25.   Form1: TForm1;  
26.   
27. implementation  
28.   
29. {$R *.dfm}  
30.   
31. uses Unit2;  
32.   
33. type TMyCalcFunc = function(a,b : double) : double of object;  
34.   
35. procedure TForm1.OnCalcBtnClick(Sender: TObject);  
36. var  
37.   MyCalc     : TMyCalc;  
38.   MyCalcFunc : TMyCalcFunc;  
39.   MethodVar : TMethod;  
40. begin  
41.   
42.   MyCalc := TMyCalc.Create;  
43.   try  
44.     MethodVar.Data := MyCalc;  
45.     MethodVar.Code := MyCalc.MethodAddress(TButton(Sender).Caption);  
46.   
47.   
48.     if Assigned(MethodVar.Code) then  
49.     begin  
50.       MyCalcFunc := TMyCalcFunc(MethodVar);  
51.       StaticText2.Caption := FloatToStr(MyCalcFunc(StrToFloat(LabeledEdit1.Text),StrToFloat(LabeledEdit2.Text)));  
52.     end;  
53.   finally  
54.     MyCalc.Free;  
55.   end;  
56.   
57. end;  
58.   
59. end.  

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure OnCalcBtnClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

type TMyCalcFunc = function(a,b : double) : double of object;

procedure TForm1.OnCalcBtnClick(Sender: TObject);
var
  MyCalc     : TMyCalc;
  MyCalcFunc : TMyCalcFunc;
  MethodVar : TMethod;
begin

  MyCalc := TMyCalc.Create;
  try
    MethodVar.Data := MyCalc;
    MethodVar.Code := MyCalc.MethodAddress(TButton(Sender).Caption);


    if Assigned(MethodVar.Code) then
    begin
      MyCalcFunc := TMyCalcFunc(MethodVar);
      StaticText2.Caption := FloatToStr(MyCalcFunc(StrToFloat(LabeledEdit1.Text),StrToFloat(LabeledEdit2.Text)));
    end;
  finally
    MyCalc.Free;
  end;

end;

end.

ボタンのキャプション名が名前のメソッドが定義されているという前提で、ボタンのキャプションを
使って関数をコールして、結果を求めています。