<div dir="ltr"><div class="gmail_extra"><div class="gmail_extra">Maciej, perhaps define a generic contain class in the Sparta package. That is, copy some code from Generic.Collections and type alias it, and Wrap that code in ifdefs.</div><div class="gmail_extra"><br></div><div class="gmail_extra">unit Sparta.Generics.Collections;</div><div class="gmail_extra"><br></div><div class="gmail_extra">interface</div><div class="gmail_extra"><br></div><div class="gmail_extra">{$if fpc_fullversion < 30100}</div><div class="gmail_extra">uses</div><div class="gmail_extra"><span class="" style="white-space:pre">   </span>Classes; </div><div class="gmail_extra"><br></div><div class="gmail_extra">{ Copy type the generic declaration Generics.Collections }</div><div class="gmail_extra">  </div><div class="gmail_extra">type   </div><div class="gmail_extra">   TList<T> = class(TEnumerable<T>)</div><div class="gmail_extra">   end;</div><div class="gmail_extra">   </div><div class="gmail_extra">{$else} </div><div class="gmail_extra">uses</div><div class="gmail_extra"><span class="" style="white-space:pre"> </span>Classes, Generics.Collections;</div><div class="gmail_extra">{$endif}</div><div class="gmail_extra"><br></div><div class="gmail_extra">type</div><div class="gmail_extra">  TGenericList<T> = TList<T>;</div><div class="gmail_extra">  </div><div class="gmail_extra">implmentation</div><div class="gmail_extra"><br></div><div class="gmail_extra">{$if fpc_fullversion < 30100}</div><div class="gmail_extra">{ Implement TList<T> here}</div><div class="gmail_extra">{$endif}</div><div class="gmail_extra"><br></div><div class="gmail_extra">end.</div><div class="gmail_extra"><br></div><div class="gmail_extra">Then use  Sparta.Generics.Collections and TGenericList<T> in the rest of your code.</div></div><div class="gmail_extra"><div class="gmail_extra"></div></div></div>