derived.pas

《Kylix程序设计》一书中附带的例程源代码

unit Derived;

interface

uses Base;

type
  TDerived = class( TBase )
//  protected
  private
    FD: Integer;
  public
    procedure SetDerived( D: Integer ); overload;
    procedure SetDerived( B, D: Integer ); overload;
    function GetDerived(): Integer;
  end;

procedure Proc( Derived: TDerived );

implementation

function TDerived.GetDerived: Integer;
begin
  Result := FD;
end;

procedure TDerived.SetDerived(D: Integer);
begin
  FD := D;
//  FB := D;
  SetBase( D-1 );
end;

procedure TDerived.SetDerived(B, D: Integer);
begin
//  FB := B;
  FD := D;
//  SetBase( B );
end;

procedure Proc( Derived: TDerived );
var
  Int: Integer;
begin
  Int := Derived.FD;
end;

end.