Discussion :

[ads42]

Bonjour,
j'ai une fonction qui liste toutes les propriétés d'un objet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure QueryPropertyOf(AObj: TObject);
Var
  vCtx: TRttiContext; // contexte rtti
  vType: TRttiType; // rtti de l'objet
  vProp: TRttiProperty; // rtti de la propriété
Begin
  vCtx := TRttiContext.Create;
  Try
    vType := vCtx.GetType(AObj.ClassType);
    For vProp In vType.GetProperties Do
      Begin
        //recuperation du vProp pour le passer à la fonction. 
      End;
  Finally
    vCtx.Free;
  End;

Je voudrais ensuite pour chaque objet le passer en paramètre à une fonction qui a pour paramètre un Generics (<T>)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function TJsonSchema.AddField<T>(const pName: string; const pDescription: string = ''): TJsonField;

ici les parametres peuvent être des classes ou des elements simples comme des strings ou des integer.
Quelqu'un sait comment je pourrai passer du TRttiProperty vers <T>

Ca doit être tout bête mais je ne suis pas encore super à l'aise avec les RTTI.

Merci de votre aide.

[popo]

Fait de mémoire alors pas sûr que ça compile direct mais le principe est là.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function RttiTypeToObject(RttiType : TRttiType) : Object;
var instanceType : TRttiInstanceType;
begin
    instanceType  := RttiType.AsInstance;
    Result := instanceType.GetMethod('Create').Invoke(instanceType.MetaclassType,[nil]);
end;

[Paul TOTH]

ce n'est pas possible, les fonctions "générique" sont créées à la compilation pour chaque "T" utilisé, ce ne sont pas des fonctions dynamiques.

il faudrait une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function TJsonSchema.AddFieldType(TypeInfo: Pointer; const pName: string; const pDescription: string = ''): TJsonField;

d'ailleurs j'ai tendance à faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function TJsonSchema.AddField<T>(const pName: string; const pDescription: string = ''): TJsonField; inline;
begin
  Result := AddFieldType(TypeInfo(T), pName, pDescription);
end;

du coup le generic est plus un sucre syntaxique qu'autre chose

[ads42]

Merci Paul et Popo.
Bon je vais le faire différemment alors en détectant le type et en passant ce qu'il faut manuellement.