测试代码如下： 1 program Project1; 2 3 {$APPTYPE CONSOLE} 4 5 {$R *.res} 6 7 uses 8 System.SysUtils, 9 rtti;10 11 type12 TTest = class13 private14 FDateTime: TDateTime;15 published16 property D: TDateTime read FDateTime write FDateTime;17 end;18 19 var20 T: TTest;21 AValue, rValu... Read More
