Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.007 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#26

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

  Alt 28. Feb 2012, 15:21
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.
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat