testdelphinetnestedtype.out

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

unit testdelphinetnestedtype;

interface

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

    procedure outerproc;
  end;

implementation

procedure touterclass.tinnerclass.innerproc;
begin
end;

procedure touterclass.outerproc;
begin
end;

end.