testtpobjects.out

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

unit testtpobjects;

interface

type
  tfoo = object
  end;

  tbar = object
  private
  protected
  public
  end;

  tbaz = object li1: integer;
  private
    li2: integer;
  protected
    li3: integer;
  public
    li4: integer;
  end;

  tfish = object(tbar)
    procedure swim;
  end;

implementation

procedure tfish.swim;
begin
end;

end.