testdelphinetnestedtype2.out

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

unit testdelphinetnestedtype2;

interface

type
  touterclass = class
  private
    myfield: integer;
  public
    type tinnerclass = class
    private
      type tinner2class = class
      public
        myinnerfield: integer;
        procedure innerproc;
      end;

    public
      myinnerfield: integer;
      procedure innerproc;
    end;

    procedure outerproc;
  end;

implementation

procedure touterclass.outerproc;
begin
end;

procedure touterclass.tinnerclass.innerproc;
begin
end;

procedure touterclass.tinnerclass.tinner2class.innerproc;
begin
end;

end.