Reintroduce / Override bei Virtual / Dynamic im Bezug auf OOP - Prinzipien

[Stevie]

Das Stichwort heißt Polymorphie

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

type
  TFoo = class
    procedure Something; virtual;
  end;

  TBar = class(TFoo)
    procedure Something; override;
  end;

procedure TFoo.Something;
begin
  Writeln('TFoo.Something');
end;

procedure TBar.Something;
begin
  Writeln('TBar.Something');
end;

var
  foo: TFoo;
begin
  foo := TBar.Create;
  foo.Something; // Ausgabe bei override: TBar.Something - Ausgabe bei reintroduce: TFoo.Something;
  Readln;
end.