[fpc-pascal] Extend multiple classes with same code

[Zaher Dirkey]

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.

Best Regards
Zaher Dirkey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20120519/1ff6199f/attachment.html>