destructor TIocRegistrator.Destroy;

reg : TIocRegistration;

i : Integer;

regs : TArray<TIocRegistration>;

for regin fDependencies.Valuesdo

regs := fDependencies.Values.ToArray;

for i := High(regs)downto Low(regs)do

ifreg<>nilthen

ifregs[i]<>nilthen

if (regis TIocRegistrationInstance)and (TIocRegistrationInstance(reg).IsSingleton)then TIocRegistrationInstance(reg).Instance.Free;

reg.Free;

if (regs[i]is TIocRegistrationInstance)and (TIocRegistrationInstance(regs[i]).IsSingleton)then TIocRegistrationInstance(regs[i]).Instance.Free;

regs[i].Free;

end;

end;

fDependencies.Free;

pInfo : PTypeInfo;

reg : TIocRegistration;

pair : TPair<string,TIocRegistration>;

Result := TList<T>.Create;

pInfo := TypeInfo(T);

forpairin fRegistrator.Dependencies.ToArraydo

forregin fRegistrator.Dependencies.Valuesdo

reg := pair.Value;

if reg.IntfInfo = pInfothen Self.Resolve(pInfo,aName);

end;

end;