nestedclass.pas

来自「source code for Marco Cantu s book Delph」· PAS 代码 · 共 74 行

unit NestedClass;

interface

type
  TOne = class
  private
    someData: Integer;
  public
    // nested constant
    const foo = 12;
    // nested type
    type TInside = class
      type TInsideInside = class
        procedure Two;
      end;
    public
      procedure InsideHello;
    private
      Msg: string;
      InsIns: TInsideInside;
    end;
  public
    procedure Hello;
    constructor Create;
  end;

implementation

uses
  SysUtils;

{ TOne }

constructor TOne.Create;
begin
  inherited Create;
end;

procedure TOne.Hello;
var
  ins: TInside;
begin
  ins := TInside.Create;
  try
    ins.Msg := 'hi';
    ins.InsideHello;
    writeln ('constant is ' + IntToStr (foo));
  finally
    ins.Free;
  end;
end;

{ TOne.TInside }

procedure TOne.TInside.InsideHello;
begin
   someData := 22;
   writeln ('internal call');
   if not Assigned (InsIns) then
     InsIns := TInsideInside.Create;
   InsIns.Two;
end;

{ TOne.TInside.TInsideInside }

procedure TOne.TInside.TInsideInside.Two;
begin
  someData := 22;
  writeln ('this is a method of a nested/nested class');
end;

end.