delphi - 将 TValue 转换为 TDateTime

Question

如何将 TValue 转换为 TDateTime？

我看到有 AsInteger、AsDouble 等方法，但没有 TDateTime 的方法。

var
  c : TRttiContext;
  t : TRttiType;
  f : TRttiField;
  fieldValue : TValue;
  fieldDateValue : TDateTime;
begin
  c := TRttiContext.Create;
    t := c.GetType(Self.ClassType);
    for f in t.GetFields do begin
      fieldValue := field.GetValue(Self);
      //convert the TValue in TDateTime
    end;
end;

Answer 1

具体AsXXX方法(如 AsInteger )只是某些内在类型的快捷方式(有些还通过针对特定类型的优化来实现)。 但要从 TValue 获取任何类型您可以使用AsType<T>方法。