testdelphinetnestedtype.out

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

unit TestDelphiNetNestedType;

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

 Simple test of nested types in Delphi.net
}
interface

type
  TOuterClass = class
  private
    myField: integer;
  public
    type
    TInnerClass = class
    public
      myInnerField: integer;
      procedure innerProc;
    end;

    procedure outerProc;
  end;

implementation

{ TOuterClass.TInnerClass }

procedure TOuterClass.TInnerClass.innerProc;
begin

end;

{ TOuterClass }

procedure TOuterClass.outerProc;
begin

end;

end.