[fpc-pascal] Extend multiple classes with same code

[Bernd]

2012/5/18 Zaher Dirkey <parmaja at 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);