base.pas

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

unit Base;

interface

type
  TBase = class
//  protected
  private
    FB: Integer;
  public
    procedure SetBase( B: Integer );
    function GetBase(): Integer;
  end;

implementation

procedure TBase.SetBase(B: Integer);
begin
  FB := B;
end;

function TBase.GetBase: Integer;
begin
  Result := FB;
end;

end.