clsinherit.pas

Delphi高手突破源码

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   clsinherit.pas
//  Creator     :   Shen Min
//  Date        :   2002-1-23
//  Comment     :   Class Inherite Demo for <<delphi after high hand>>
//
//
////////////////////////////////////////////////////////////////////////////////

unit clsinherit;

interface

type
    TBase = class
    public
        FBaseMember1 : Integer;
        FBaseMember2 : Integer;
    end;

    TDerived = class(TBase)
    public
        FDerivedMember : Integer;
    end;

    TDerived2 = class(TDerived)
    public
        FDerived2Member1 : Integer;
        FDerived2Member2 : Integer;
    end;

implementation

end.