Methoden - "Vererbung"

[Neutral General]

Zitat von sx2008:

Glasskugel dreh...du sucht das Strategie Design Pattern.

Ist das nicht einfach nur Polymorphie?

Ich will ja sowas:

Delphi-Quellcode:

TBase = class
  procedure BaseProc;
end;

TAbleitung = class(TBase)
   procedure Blubb; of BaseProc;  // oder so :-D
   procedure Foo; of BaseProc;
end;

procedure TBase.BaseProc;
begin
  ShowMessage('Base');
end;

procedure TAbleitung.Blubb;
begin
  ShowMessage('Blubb');
end;

procedure TAbleitung.Foo;
begin
  ShowMessage('Foo');
end;

Jetzt soll wenn man TAbleitung.Blubb; aufruft erst BaseProc aufgerufen werden und dann Blubb selbst.
Bei procedure TAbleitung.Foo das gleiche Prinzip. Erst BaseProc, dann Foo.