On Fri, May 18, 2012 at 11:27 PM, Bernd <prof7...@googlemail.com> wrote:
> > _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); > > > I can't, in fact it is my mistak when i explained. B1 B2 is in the base unit like as A, i cant modify it, very strict. My projects is db layer, i have TmyCustomField, TmyFields=class(TmyCustomField) and TmyParams=class(TmyCustomField), that in the base unit. now i like to inherit both TmyFields and TmyParams to add functions work on Firebird, TmyFirebirdFields and TmyFirebirdParams, both have same functions to work on buffer SQLDA. Best Regards Zaher Dirkey
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
