sealedandfinal.dpr

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

program SealedAndFinal;

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\system.drawing.dll'}

uses
  Borland.Vcl.SysUtils;

type
  TBase = class
    procedure A; virtual;
  end;

  TDeriv1 = class {sealed} (TBase)
    procedure A; override; {final;}
  end;

  // uncomment "sealed" and you'll get the error:
  // "Cannot extend sealed class TDeriv1"

  // uncomment "final" and you'll get the error:
  // "Cannot override a final method"

  TDeriv2 = class (TDeriv1)
    procedure A; override;
  end;


{ TBase }

procedure TBase.A;
begin

end;

{ TDeriv2 }

procedure TDeriv2.A;
begin
  inherited;

end;

{ TDeriv1 }

procedure TDeriv1.A;
begin
  inherited;

end;

begin
  Writeln ('sealed...');
  Readln;
end.