[OOP]: Methode (mit Parameter) überschreiben

[mytar]

• Ich hab neuerdings in der VCL etwas herumgestöbert, und hab da bei allen public-Methoden kein override gesehen, obwohl die Basisklasse die selbe Methode im public-Teil hat.
  Wie soll ich das verstehen?
• Ich hab in einer Klasse ein Methode erstellt. Ich hab diese Klasse nun beerbt und wiederum die selbe Methode verwendet nur mit anderen Parametern. Ich hab schon von reintroduce gelesen, allerdings überschreibt das die geerbte Methode ohne das ich auf diese über inherited zugreifen kann, also nicht das richtige für mich. Hier der Code:
  
  Delphi-Quellcode:

  TListe = class
  {...}
  public
  function Add_Knoten(Knoten: TKnoten): TKnoten;
  end;
  
  TNewListe = class(TListe)
  {...}
  public
  function Add_Knoten(Knoten: TNewKnoten): TNewKnoten;
  end;
  
  function TListe.Add_Knoten(Knoten: TKnoten): TKnoten;
  begin
  {...}
  end;
  
  function TNewListe.Add_Knoten(Knoten: TNewKnoten): TNewKnoten;
  begin
   Result := TNewKnoten(inherited Add_Knoten(TKnoten(Knoten))); //Löst immer einen Fehler aus
  end;

  Was mache ich falsch?

[dango]

Hallo

Zitat:

Delphi-Quellcode:

function TListe.Add_Knoten(Knoten: TKnoten): TKnoten;
begin
{...}
end;

function TNewListe.Add_Knoten(Knoten: TNewKnoten): TNewKnoten;
begin
Result := TNewKnoten(inherited Add_Knoten(TKnoten(Knoten))); //Löst immer einen Fehler aus
end;

Die Typumwandlung ist falsch ! Ein Downcast von TNewKnoten nach TKnoten ist möglich, Du versuchst hier aber einen Upcast von TKnoten nach TNewKnoten !

Gruß
Daniel

[Muetze1]

Moin!

Grundlegendes: Ich gehe davon aus, das TNewKnoten von TKnoten abgeleitet ist! - da dies vorher nicht geklärt wurde.

Wenn das der Fall ist, dann einfach so:

Code:

function TListe.Add_Knoten(Knoten: TKnoten): TKnoten;
begin
{...}
end;

function TNewListe.Add_Knoten(Knoten: TNewKnoten): TNewKnoten;
begin
Result := ( inherited Add_Knoten(Knoten) As TNewKnoten ); //Löst immer einen Fehler aus
end;

Dabei gehe ich davon aus, das Add_Knoten keine Instanz anlegt sondern eine vorhandene oder die übergebene TNewKnoten Instanz zurück gibt. Wenn es keine Instanz von TNewKnoten ist, dann schlägt die in der As Abfrage enthaltene Is Abfrage fehl und Result wird nicht gefüllt bzw. mit NIL. Daher gibt er entweder eine eindeutige TNewKnoten Instanz zurück oder Nil bzw. einen Zufallswert.

Beim Aufruf kannst du direkt die TNewKnoten Instanz angeben, weil TNewKnoten von TKnoten abgeleitet ist.

MfG
Muetze1

[GuenterS]

ich denke, dass diese zwei zwar gleichnamigen Methoden wie zwei verschiedene gehandhabt werden, daher wird er auch keine inherited finden können, da sich die zwei durch die Parameter unterscheiden.

[Muetze1]

Moin!

Nein, da hat er keine Probleme, da er die andere Methode findet, weil es die Basisklasse von dem TKnoten Objekt enthält. Das übergeben Objekt hat ja schon den Typ TNewKnoten, daher hat er da kein Problem. Wenn der Parameter einen niedrigeren Typ hätte (z.B. TObject), dann würde er fehlschlagen und meckern...

MfG
Muetze1

[mytar]

Danke für die Antworten!

Nochmals auf meine 1. Frage zurückzukommen:

Zitat von mytar:

• Ich hab neuerdings in der VCL etwas herumgestöbert, und hab da bei allen public-Methoden kein override gesehen, obwohl die Basisklasse die selbe Methode im public-Teil hat.
  Wie soll ich das verstehen?

Danke

[Dax]

Verstehe es doch so: Borland nimmt es nicht so genau..

[mytar]

Wozu gibt es dann override?
Wird dieses Überschreiben überall außer im public-Teil verwendet?

[mytar]

*push*

[d3g]

Zitat von mytar:

Wozu gibt es dann override?

Um zwei Prozeduren/Funktionen gleichen Namens aber mit unterschiedlichen Parametern im gleichen Gültigkeitsbereich haben zu können.

Delphi-Quellcode:

type
  TExample = class(TObject)
  public
    constructor Create();
    constructor Create(o: TObject); override;
  end;