[fpc-pascal] Extend multiple classes with same code

Zaher Dirkey 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.

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

More information about the fpc-pascal mailing list