关于Delphi Rtti对应TDatetime的一些启示

测试代码如下：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  rtti;

type
  TTest = class
  private
    FDateTime: TDateTime;
  published
    property D: TDateTime read FDateTime write FDateTime;
  end;

var
  T: TTest;
  AValue, rValue: TValue;
  Context: TRttiContext;
  rType: TRttiType;
  rProp: TRttiProperty;
begin
  try
    T := TTest.Create;
    T.D := Now;
    rType := Context.GetType(TTest);
    rProp := rType.GetProperty('D');
    Writeln(rProp.PropertyType.Handle.Name);
    rValue := rProp.GetValue(T);
    Writeln(rValue.TypeInfo.Name);
    AValue := TValue.From<TDateTime>(Now);
    Writeln(AValue.TypeInfo.Name);
    AValue := Now;
    Writeln(AValue.TypeInfo.Name);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

运行结果：

TDatetime

TDatetime

TDatetime

Extended

一见自明！