継承と仮想メソッド - Free Pascal ガイド

継承、仮想メソッド、override、reintroduce

クラス継承のサンプル

Object Pascalは継承と仮想メソッドに対応しています。下記サンプルではTDogがTAnimalを継承します：

TDogはサブクラス（派生クラス）、TAnimalは親クラス（基底クラス）です

program AnimalDemo;
{$ifdef FPC} {$mode objfpc}{$H+}{$J-} {$endif}
{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
{$codepage utf8}
uses SysUtils;

type
  // 動物親クラス
  TAnimal = class
    procedure Cry; virtual; // 仮想メソッド：動物の鳴き声
  end; // クラス定義終了、end;のみ記述

  // 犬のサブクラス、動物を継承し鳴き声をオーバーライド
  TDog = class(TAnimal)
    procedure Cry; override;
  end;

procedure TAnimal.Cry;
begin
  WriteLn('動物が鳴きます');
end;

procedure TDog.Cry;
begin
  WriteLn('ワンワンワン');
end;

var
  Pet: TAnimal;
begin
  // 親クラスインスタンス
  Pet := TAnimal.Create;
  try
    Pet.Cry;
  finally
    FreeAndNil(Pet);
  end;

  // サブクラスインスタンスを親クラス変数に代入、ポリモーフィズムが有効化
  Pet := TDog.Create;
  try
    Pet.Cry;
  finally
    FreeAndNil(Pet);
  end;
end.Code language: JavaScript (javascript)

実行結果

D:\fpcdemo>fpc mydemo.dpr
Free Pascal Compiler version 3.2.2 [2021/05/15] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling mydemo.dpr
Linking mydemo.exe
45 lines compiled, 0.1 sec, 68544 bytes code, 4260 bytes data

D:\fpcdemo>mydemo
動物が鳴きます
ワンワンワンCode language: CSS (css)