mers ▁are ▁able ▁to ▁use ▁gener ics ▁in ▁wh iche ver ▁style ▁they ▁prefer . ▁ ▁Del phi ▁and ▁Free ▁Pascal ▁example : ▁// ▁Del phi ▁style ▁unit ▁A ; ▁ ▁{$ if def ▁f pc } ▁▁ ▁{$ mode ▁del phi } ▁{$ endif } ▁ ▁interface ▁ ▁type ▁▁ ▁T Generic Class < T > ▁= ▁class ▁▁▁▁ ▁function ▁Foo ( const ▁A Value : ▁T ): ▁T ; ▁▁ ▁end ; ▁ ▁implementation ▁ ▁function ▁T Generic Class < T >. Foo ( const ▁A Value : ▁T ): ▁T ; ▁begin ▁▁ ▁Result ▁:= ▁A Value ▁+ ▁A Value ; ▁end ; ▁ ▁end . ▁ ▁// ▁Free ▁Pascal ' s ▁Ob j F PC ▁style ▁unit ▁B ; ▁ ▁{$ if def ▁f pc } ▁▁ ▁{$ mode ▁obj f pc } ▁{$ endif } ▁ ▁interface ▁ ▁type ▁▁ ▁generic ▁T Generic Class < T > ▁= ▁class ▁▁▁▁ ▁function ▁Foo ( const ▁A Value : ▁T ): ▁T ; ▁▁ ▁end ; ▁ ▁implementation ▁ ▁function ▁T Generic Class . Foo ( const ▁A Value : ▁T ): ▁T ; ▁begin ▁▁ ▁Result ▁:= ▁A Value ▁+ ▁A Value ; ▁end ; ▁ ▁end . ▁ ▁// ▁example ▁usage , ▁Del phi ▁style ▁program ▁Test Gen Del phi ; ▁ ▁{$ if def ▁f pc } ▁▁ ▁{$ mode ▁del phi } ▁{$ endif } ▁ ▁uses ▁▁ ▁A , B ; ▁ ▁var ▁▁ ▁GC 1 : ▁A . T Generic Class < Integer >;