unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TMyCacl = class(TObject)  public    {
     Public declarations }    function DynamicFun(funName: string; const a, b: integer): integer;  published    function add(const a, b: integer): integer;    function dec(const a, b: integer): integer;  end;  TNewMyCacl = class(TMyCacl)  published    function Multi(const a, b: integer): integer;  end;  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    {
     Private declarations }  public    {
     Public declarations }  end;var  Form1: TForm1;implementation{
    $R *.dfm}{
     TMyCacl }function TMyCacl.add(const a, b: integer): integer;begin  result := a + b;end;function TMyCacl.dec(const a, b: integer): integer;begin  result := a - b;end;function TMyCacl.DynamicFun(funName: string;const  a, b: integer): integer;var  pfun: function(const a, b: integer): integer of object;begin  if self.MethodAddress(funName) <> nil then  begin    TMethod(pfun).Code := MethodAddress(funName);    result := pfun(a, b);  end  else  result := 0;end;{
     TNewMyCacl }function TNewMyCacl.Multi(const a, b: integer): integer;begin  result := a * b;end;procedure TForm1.Button1Click(Sender: TObject);var  tmp: TMyCacl;  i: integer;begin  tmp := TNewMyCacl.Create();  if tmp.MethodAddress('Multi') <> nil  then  begin    i := tmp.DynamicFun('Multi', 102, 3);    showmessage(inttostr(i));  end;  tmp.Free;end;end.

以上代码实现了类中通过函数名动态调用函数的方法，这样处理的一个优点是使类的复用性与扩展性得到加强，比如上例中，之前有一个类TMyCacl，能实现对a与b做加法与减法运算，

假如今后需求变化，需要增加其他运算时，可通过继承该类，重新写一个新运算方法，但是调用还用利用DynamicFun函数，这样在原来的类不要做修改的前提下，很好的实现功能的扩展。

这里一定要注意的是，需要被动态条用的函数一定要是 published 类型，否则MethodAddress将无法获取该函数。