2012/5/18 Zaher Dirkey <parm...@gmail.com>: > Hi, > > I have 2 objects inherited from the base one > > T_A = class(TObject); > > T_B1 = class(T_A); > T_B2 = class(T_A); > T_B3 = class(T_A);
How about this: T_A = class(TObject); T_AX = class(T_A); // <-- this class implements your extensions T_B1 = class(T_AX); // TB_1 and T_B2 = class(T_AX); // TB_2 inherit it T_B3 = class(T_A); _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
