littletest19.out

来自「格式化源码的最新板」· OUT 代码 · 共 30 行

unit littletest19;

interface

type
  tsoy = class
  protected
    function getklingon: integer;
    procedure setklingon(const Value: integer);
    property klingon: integer Read getklingon Write setklingon;
  end;

  tenterprise = class(TSoy)
  published
    property klingon Read getklingon Write setklingon;
  end;

implementation

function tsoy.getklingon: integer;
begin
  Result := 42;
end;

procedure tsoy.setklingon(const Value: integer);
begin
end;

end.