hbdwzjs的博客

转载 delphi通过函数名动态调用函数的方法（方便功能的扩展）

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyCacl = class(TObject) public { Public declarations }