【Delphi 基础知识 12】覆盖函数的使用

在Delphi中，使用关键字override可以覆盖（override）父类中的虚方法。以下是一个简单的覆盖函数的例子：

unit OverrideExample;

interface

uses
  SysUtils;

type
  // 父类
  TShape = class
    procedure Draw; virtual;
  end;

  // 子类
  TCircle = class(TShape)
    procedure Draw; override;<