Paul Davidson wrote:
unit aUnit;
interface
    type
        aType = ( at_First, at_aaa, at_bbb, at_Last );

        aObj = class
            aVar : aType



unit bUnit;
interface
    uses aUnit;
    type
        bObj = class( aObj )


unit cUnit
interface
    uses bUnit;

I think some Pascal dialect have
  reuse bUnit;
Then all bUnit is used, pull the units in the interfaces uses clause.

    type
        cObj = class( bObj )
implementation
    aVar := at_Last;   <----------- ERROR!

The implementation of cUnit requires a USE aUnit; in order to compile since at_last is no longer visible.

_______________________________________________
fpc-devel maillist  -  [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to