nestedtypes.dpr

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

program NestedTypes;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  NestedClass in 'NestedClass.pas';


begin
  with TOne.Create do
  begin
    Hello;
    writeln (foo);
  end;

  with TOne.TInside.Create do
  begin
    InsideHello;
  end;

  readln;
end.