Sinn, Nutzen und Einsatzmöglichkeit von abstrakten Klassen

[DeddyH]

Jepp, hab mal schnell ein Beispiel geschrieben:

Delphi-Quellcode:

program Tiereklassen;

uses
  Windows;

{$APPTYPE CONSOLE}

type
  TTier = class 
  protected
    procedure GibLaut; virtual; abstract;
  end;

  THund = class(TTier)
  public
    procedure GibLaut; override;
  end;

  TKatze = class(TTier)
  public
    procedure GibLaut; override;
  end;

  TKuh = class(TTier)
  public
    procedure GibLaut; override;
  end;

procedure THund.GibLaut;
begin
  writeln('Wau');
end;

procedure TKatze.GibLaut;
begin
  writeln('Miau');
end;

procedure TKuh.GibLaut;
begin
  writeln('Muh');
end;

var Tiere: array[0..2] of TTier;

begin
  Tiere[0] := THund.Create;
  try
    Tiere[1] := TKatze.Create;
    try
      Tiere[2] := TKuh.Create;
      try
        Tiere[0].GibLaut;
        Tiere[1].GibLaut;
        Tiere[2].GibLaut;
      finally
        Tiere[2].Free;
      end;
    finally
      Tiere[1].Free;
    end;
  finally
    Tiere[0].Free;
  end;
  readln;
end.