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.
unit Sparta.Generics.Collections;
interface
{$if fpc_fullversion < 30100}
uses
Classes;
{ Copy type the generic declaration Generics.Collections }
type
TList<T> = class(TEnumerable<T>)
end;
{$else}
uses
Classes, Generics.Collections;
{$endif}
type
TGenericList<T> = TList<T>;
implmentation
{$if fpc_fullversion < 30100}
{ Implement TList<T> here}
{$endif}
end.
Then use Sparta.Generics.Collections and TGenericList<T> in the rest of
your code.
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
