testdelphinetnestedtype2.out

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

unit TestDelphiNetNestedType2;

{
  AFS May 2005
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 More complex test of nested types in Delphi.NET
}

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

{ TOuterClass.TInnerClass }

{ TOuterClass }

procedure TOuterClass.outerProc;
begin

end;

procedure TOuterClass.TInnerClass.innerProc;
begin

end;


{ TOuterClass.TInnerClass.TInner2Class }

procedure TOuterClass.TInnerClass.TInner2Class.innerProc;
begin

end;

end.