[fpc-pascal] Extend multiple classes with same code
parmaja at gmail.com
Sat May 19 00:11:41 CEST 2012
On Fri, May 18, 2012 at 11:27 PM, Bernd <prof7bit at 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.
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the fpc-pascal