昨天在看 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