delphi - sustancias - propiedades de la materia resumen

¿Cómo puedo distinguir las propiedades de TDateTime de las propiedades dobles con RTTI?

Question

Utilizando el sistema RTTI en Delphi 2010, ¿hay alguna manera de averiguar si una propiedad es un TDateTime? Actualmente lo estoy tratando como un doble cuando vuelvo a llamar como Variant y también si compruebo el tipo de propiedad. ¿Esto se debe al hecho de que solo puede ver el tipo base? (TDateTime = doble)

Answer 1

El punto clave aquí mientras se define el tipo es la directiva de tipo . Estas dos definiciones son diferentes:

Type
TDateTime = Double; // here p.PropertyType.Name returns Double
but
Type
TDateTime = type Double; // here p.PropertyType.Name returns TDateTime
or
Type
u8 = type Byte; // here p.PropertyType.Name returns u8
but
Type
u8 = Byte; // here p.PropertyType.Name returns Byte !

Answer 2

Intente verificar la propiedad Name del TRttiProperty.PropertyType

No tengo Delphi 2010, pero esto funciona en XE.

{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
Rtti;
type
TMyClass =class
private
FDate: TDateTime;
FProp: Integer;
FDate2: TDateTime;
FDate1: TDateTime;
public
property Date1 : TDateTime read FDate1 Write FDate1;
property Prop : Integer read FProp Write FProp;
property Date2 : TDateTime read FDate2 Write FDate2;
end;
var
ctx : TRttiContext;
t : TRttiType;
p : TRttiProperty;
begin
ctx := TRttiContext.Create;
try
t := ctx.GetType(TMyClass.ClassInfo);
for p in t.GetProperties do
if CompareText(''TDateTime'',p.PropertyType.Name)=0 then
Writeln(Format(''the property %s is %s'',[p.Name,p.PropertyType.Name]));
finally
ctx.Free;
end;
Readln;
end.

este código devuelve

the property Date1 is TDateTime
the property Date2 is TDateTime