Klasse um eine funktion erweitern - Vererbung

[Khabarakh]

Zitat von GuenterS:

Zitat von shmia:

Zitat von tigerman33:

Wieso sollte das nicht funkionieren? Die neue Klasse erbt alles der Vorgängerklasse!

Weil niemand die procedure TJvZlibMultipleWithBreak.AddFile aufruft.
Die procedure TJvZlibMultiple.AddFile müsste virtuell sein, damit die Prozedur aufgerufen wird.

Die Klasse TJvZlibMultiple ruft ja aus CompressFiles die procedure AddFile auf.
Dass es in einer abgeleiteten Klasse eine geänderte Procedure AddFiles gibt, das "weiss"
TJvZlibMultiple.CompressFiles nicht.

Nein sie muss nicht als virtual deklariert sein, dass man sie überschreiben kann.

Falsch, die Methode der Basisklasse wird dann nur überdeckt. Bei einem Typecast oder - wie shmia schon gesagt hat - einem Aufruf über eine andere Methode der Basisklasse wird im Gegensatz zu virtual - override immer noch die verdeckte Methode aufgerufen.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TBase = class
  public
    procedure Foo;
    procedure Bar;
  end;

  TDescendant = class(TBase)
  public
    procedure Bar;
  end;

{ TDescendant }

procedure TDescendant.Bar;
begin
  Writeln('TDescendant.Bar');
end;

{ TBase }

procedure TBase.Bar;
begin
  Writeln('TBase.Bar');
end;

procedure TBase.Foo;
begin
  Bar;
end;

var
  Descendant: TDescendant;
begin
  Descendant := TDescendant.Create;
  Descendant.Foo;
  TBase(Descendant).Bar;

  Descendant.Free;

  Readln;
end.

Konsolenausgabe

TBase.Bar
TBase.Bar