Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#8

Re: Klasse um eine funktion erweitern - Vererbung

  Alt 21. Sep 2005, 13:30
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.
Andreas
  Mit Zitat antworten Zitat