Un moteur d’accès aux données générique

1. Implémentation

La responsabilité de TDBEntityBase est d’initialiser l’entité en créant en mémoire la liste des propriétés, un dictionnaire reliant les noms de propriétés et les noms de colonnes.

type TDBEntityBase=class(TPersistent) 
  private 
  protected      
    FPropAccessorsList:TDictionary<TRttiProperty,TAccessors>; 
    FRttiCtx:TRttiContext; 
    FPropList :TList<TRttiProperty>; 
    FPropNameColumnNameList :TDictionary<string,string>; 
    FTableName:string; 
    procedure InitPropList; 
  public 
    constructor Create;reintroduce; 
    destructor Destroy;override; 
end; 

Voici le code concernant l’implémentation :

{ TDBEntityBase } 
 
 
constructor TDBEntityBase.Create(); 
begin 
 inherited Create; 
FRttiCtx:=TRttiContext.Create; 
 FPropList := TList<TRttiProperty>.Create; 
 FPropNameColumnNameList :=TDictionary<string,string>.Create; 
 FPropAccessorsList:=TDictionary<TRttiProperty,TAccessors>.Create; 
 InitPropList; 
end; 
 
destructor TDBEntityBase.Destroy; 
begin 
 FRttiCtx.Free; 
 FPropAccessorsList.Free; 
 FPropNameColumnNameList.Free; 
 inherited; 
end;...
Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Attributs Delphi
Suivant
Conclusion