Custom Constructor /DI bei factory-basierter Objekterstellung

[Sequitar]

Delphi-Quellcode:

  
 Var
    Guid: Tguid;
begin 
{...}    
Guid := GetTypeData(TypeInfo(T))^.Guid;
      If Not Supports(Cl, Guid)
{...}
end;