Methode aus der Elternklasse aufrufen wenn überschrieben?

daggit · Beiträge: 56

hi,

ich hab ein kleines Tut durchgearbeitet. Darin werden 2 klassen erstellt, eine Oberklasse und eine Klasse die von der Oberklasse erbt. Beide Klassen enthalten eine Methode, die dann in der zweiten klasse mitels override überschrieben wird. Hat auch alles wunderbar funktioniert. Nur in dem Tutorial steht das die Methode der Oberklasse trotzdem zusätzlich auchtomatisch mit ausgeführt wird, wenn die methode der zweiten klasse aufgerufen wird. Ist auch notwendig da dort noch wichtige befehle vorhanden sind. Bei mir werden allerdings nur die Anweisungen der zweiten Klasse ausgeführt.

Weiss jemand wie und ob es überhaupt machbar ist?

deccer · Beiträge: 57

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

type
  TClassA = class
  protected
    procedure Foo; virtual;
  end;

  TClassB = class(TClassA)
  protected
    procedure Foo; override;
  end;

implementation

procedure TClassA.Foo;
begin
  ShowMessage('ClassA.Foo');
end;

procedure TClassB.Foo;
begin
  inherited; // oder inherited Foo; - ruft die methode aus der elternklasse auf
  ShowMessage('ClassB.Foo');
end;

Moderiert von Motzi: Delphi-Tags hinzugefügt.

daggit · Beiträge: 56

Besten Dank!

hehe entweder das hat jemand in meinem beispiel vergessen oder es war früher mal anders

.... nun klappts aber

deccer · Beiträge: 57

kein dingen -

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme