How is the class loaded with TFetchMode.Eager

BIZ TMS Aurelius
6

Thanks,

in meantime I 've make some code like:

function TTransfer.List<T>(aManager: TObjectManager): TList<T>;
var
  oCriteria: TCriteria<T>;
  oFilter: TCustomCriterion;
  oItem: T;
  oFetchEagerAlias: TFetchEagerAlias;
  oExpression: TCustomCriterion;
begin
  oCriteria := aManager.Find<T>;

  for oExpression in self.CustomCriterionList do
  begin
    oCriteria.Add(oExpression); // does not work --> no Value
  end;

  Result:= oCriteria.List;

  If self.HaveFetchEagerAlias
  then begin
    for oItem in Result do
    begin
      for oFetchEagerAlias in self.FetchEagerAliasList do
      begin
        TRttiUtils.GetProperty(oItem, oFetchEagerAlias.AssociationPath);
      end;
    end;
  end;
end;