<div dir="ltr"><br><div class="gmail_quote">On Fri, May 18, 2012 at 11:27 PM, Bernd <span dir="ltr"><<a href="mailto:prof7bit@googlemail.com" target="_blank">prof7bit@googlemail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div class="im">
<br>
</div>_B3 = class(T_A);<br>How about this:<br>
<br>
T_A = class(TObject);<br>
<br>
T_AX = class(T_A);    // <-- this class implements your extensions<br>
<br>
T_B1 = class(T_AX);  // TB_1 and<br>
T_B2 = class(T_AX);  // TB_2 inherit it<br>
T_B3 = class(T_A);<br>
<div class="HOEnZb"><div class="h5"><br><br></div></div></blockquote></div><br>I can't, in fact it is my mistak when i explained.<br><br>B1 B2 is in the base unit like as A, i cant modify it, very strict.<br><br>My projects is db layer, i have TmyCustomField, TmyFields=class(TmyCustomField) and TmyParams=class(TmyCustomField), that in the base unit.<br>
<br>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.<br><br><div dir="ltr">Best Regards<br>Zaher Dirkey</div>
<br>
</div>