let TRest resolve its Services internal list

- and also minor changes

src/core/mormot.core.interfaces.pas

@@ -362,8 +362,8 @@   TInterfaceMethod = record
     // - Kind will specify the expected returned document layout
     procedure ArgsValuesAsDocVariant(Kind: TInterfaceMethodParamsDocVariantKind;
       out Dest: TDocVariantData; const Values: TVariantDynArray; Input: boolean;
-      Options: TDocVariantOptions = [dvoReturnNullForUnknownProperty,
-        dvoValueCopiedByReference]);
+      Options: TDocVariantOptions =
+        [dvoReturnNullForUnknownProperty, dvoValueCopiedByReference]);
     /// normalize a TDocVariant containing the input or output arguments values
     // - "normalization" will ensure sets and enums are seralized as text
     // - if Input is TRUE, will handle const / var arguments
@@ -4707,7 +4707,8 @@ class procedure TInterfaceResolverInjected.RegisterGlobalDelete(aInterface: PRtt
   end;
 end;
 
-function TInterfaceResolverInjected.TryResolve(aInterface: PRttiInfo; out Obj): boolean;
+function TInterfaceResolverInjected.TryResolve(aInterface: PRttiInfo;
+  out Obj): boolean;
 var
   i: PtrInt;
   new: TInterfacedObject;

src/orm/mormot.orm.mongodb.pas

@@ -1039,7 +1039,7 @@ function TRestStorageMongoDB.SearchField(const FieldName, FieldValue: RawUTF8;
     // use {%:%} here since FieldValue is already JSON encoded
     query := BSONVariant('{%:%}',
       [fStoredClassMapping^.InternalToExternal(FieldName), FieldValue], []);
-    // retrieve the ID for this query
+    // retrieve the IDs for this query
     if id.Init(fCollection.FindBSON(query, BSONVariant(['_id', 1]))) then
     begin
       n := 0;

src/orm/mormot.orm.storage.pas

@@ -4687,6 +4687,8 @@ function ToText(t: TORMVirtualTableTransaction): PShortString;
 end;
 
 initialization
+  // set late-binding return of TOrmVirtualTableClass.ModuleName
   GetVirtualTableModuleName := @_GetVirtualTableModuleName;
+
 end.
 

src/rest/mormot.rest.core.pas

@@ -1732,7 +1732,7 @@ function TRest.TryResolve(aInterface: PRttiInfo; out Obj): boolean;
   if aInterface = TypeInfo(IRestOrm) then
     IRestOrm(Obj) := fOrm
   else
-    result := false;
+    result := fServices.Resolve(aInterface, Obj);
 end;
 
 procedure TRest.SetLogClass(aClass: TSynLogClass);

src/rest/mormot.rest.memserver.pas

@@ -300,7 +300,7 @@ destructor TRestOrmServerFullMemory.Destroy;
 
 procedure TRestOrmServerFullMemory.DropDatabase;
 var
-  t: integer;
+  t: PtrInt;
 begin
   for t := 0 to fStaticDataCount - 1 do
     TRestStorageInMemory(fStaticData[t]).DropValues;