Delphi 动态创建类

昨天在看 Java Web 开发时有看到servlet 通过反射动态创建类，想到Delphi中能否实现。

 环境 Win10 x64 , Delphi 10.4  需引用 System.Rtti ；

发现 private 下的 function GetXY:Integer  没有获取到，why? Rtti设计就这样？

unit untTest;

interface

uses
  Classes,SysUtils,Dialogs;

type
  TTestClass = class(TPersistent)  //需继承TPersistent
    private
      FX:Integer;
      FY:Integer;
      FStr : string;
      function GetXY:Integer;
    public
      function DoAdd(x,y: Integer):Integer;
      procedure ShowMsgBox;

      property X: Integer read FX write FX;
      property Y: Integer read FY write FY;
      property STR: string read FStr write FStr;
      property XAY: Integer read GetXY;
  end;



implementation

{ TTestClass }

function TTestClass.DoAdd(x, y: Integer): Integer;
begin
  Result := x+y;
end;

function TTe