c_nestedclasses.pc

来自「Delphi脚本控件」· PC 代码 · 共 23 行

class Outer: TObject {
  private int x = 10;
  static string y = "abc";

  function Outer() {
    this = base.Create();
  }

  class Inner: TObject {
    private int x = 20;

    function PrintData(){ println x, y; }

    function Inner(){
      this = base.Create();
    }
  }
}

var O = new Outer(), I = new Outer.Inner();
println O, I;
I.PrintData();