Delphi

Abstract

Adam Boduch

abstract - słowo kluczowe języka Delphi

Klauzulą abstract może być opatrzona dowolna metoda w klasie. Wówczas taka metoda staje się metodą abstrakcyjną.

Metody abstrakcyjne są takimi metodami, które nie posiadają implementacji ? jedynie deklaracje w klasie. I wystarczy, że zapamiętasz to zdanie. Deklarowanie metod abstrakcyjnych wiąże się z dziedziczeniem ? projektant klasy bazowej zaznacza, że klasy potomne muszą zawierać metodę o danej nazwie.

Przykład: jeden programista w zespole tworzy klasę TBasePlayer, w której definiuje abstrakcyjną metodę Play (metoda jest w klasie, ale w kodzie nie znajduje się jej implementacja). Drugi programista tworzy klasę TSpiderMan, która dziedziczy po TBasePlayer i która będzie musiała zawierać metodę Play, jednak we wszystkich klasach potomnych metoda ta może wyglądać inaczej.

Metodę abstrakcyjną definiuje się z użyciem słowa kluczowego abstract:

  TBasePlayer = class
  // jedynie definicja metody
    procedure Play; virtual; abstract;
  end;

Taki kod zostanie skompilowany bez problemu, mimo że kod nie zawiera implementacji metody Play. Uwaga! Metoda abstrakcyjna musi być jednocześnie wirtualna lub dynamiczna (nie może być statyczna), w przeciwnym przypadku kompilator wyświetli komunikat o błędzie: [Error] Unit1.pas(38): Abstract methods must be virtual or dynamic.

Teraz można zadeklarować klasę potomną, która musi zawierać metodę Play:

  TSpiderMan = class(TBasePlayer)
  end;

Jeżeli jej nie zadeklarujemy, podczas próby utworzenia instancji klasy kompilator poinformuje o błędzie ([Error] Unit1.pas(103): Constructing instance of 'TSpiderMan' containing abstract method 'TBasePlayer.Play'):

var
  Player : TSpiderMan;
begin
  Player := TSpiderMan.Create;
  Player.Free;
end;

Możemy w tym momencie zadeklarować metodę Play w klasie TSpiderMan:

  TSpiderMan = class(TBasePlayer)
    procedure Play; override;
  end;

Jak będzie wyglądać implementacja klasy TSpiderMan? To już zależy od programisty:

var
  Player : TSpiderMan;
begin
  Player := TSpiderMan.Create;
  Player.Play;
  Player.Free;
end;

{ TSpiderMan }

procedure TSpiderMan.Play;
begin
  ShowMessage('Metoda Play z klasy TSpiderMan');
end;

Uogólniając, trzeba zapamiętać, że metody abstrakcyjne nie posiadają implementacji.

Zobacz też:

OOP Delphi

0 komentarzy