Klasse um eine funktion erweitern - Vererbung

[GuenterS]

Zitat von 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

Du hast anscheinend nicht verstanden was ich geschrieben habe. Das was Du in Deinem Beispiel zeigen wolltest, war klar. Es ging allerdings nicht darum.

Delphi-Quellcode:

   type 
      TBase = class
         protected
           procedure myMethod;
      end;
      TExtended = class(TBase)
         protected
           procedure MyMethod;
      end;

implementation

  ...

  procedure TExtended.MyMethod;
  begin
    inherited;   //<---- Hier wird die Methode von TBase aufgerufen
  end;


  ....

end.

[Edit]
*grml* Habe schmia Beitrag wohl falsch gelesen, dachte sie/er meinte, dass man nur Methoden vererben kann, wenn man in der Mutterklasse virtual hinschreibt.

Zusatz: Wenn Du meinen ganzen Beitrag zitiert hättest wäre das auch klar gewesen, dass ich was anderes meinte, man sollte/darf halt nicht immer nur die Teile zitieren die man für seine Aussagen braucht.
[/Edit]