Überschriebene Methode in Kindklasse überladen

[mirage228]

Hallo,

ich hab folgendes Konstrukt (andere Klassen/Methodennamen, aber selbe Situation)

Delphi-Quellcode:

type
  TBasisKlasse = class(TObject)
  private
  public
    procedure DoSomething(A: Integer); virtual;
end;

Nun wollte ich in der Kindklasse folgendes machen

Delphi-Quellcode:

type
  TKindKlasse = class(TBasisKlasse)
  private
  public
    procedure DoSomething(A: Integer); overload; override;
    procedure DoSomething(X: String); overload; // [Warnung] uAppDocumentClasses.pas(281): Methode 'DoSomehting' verbirgt virtuelle Methode vom Basistyp 'TBasisKlasse'
end;

Es geht mir dabei um die Warnung:

Code:

 [Warnung] uAppDocumentClasses.pas(281): Methode 'DoSomehting' verbirgt virtuelle Methode vom Basistyp 'TBasisKlasse'

Nun, eigentlich hat der Compiler ja völlig recht, aber wie kann ich dieses Problem nun trotzdem lösen, sodass ich und der Compiler zufrieden sind? Ist mein vorhaben überhaupt mit den "Gesetzen" von OOP / Delphi vereinbar?

mfG
mirage228

[Bernhard Geyer]

Probier mal folgendes (nicht getestet):

Code:

type 
  TKindKlasse = class(TBasisKlasse) 
  private 
  public 
    procedure DoSomething(A: Integer); overload; override; 
    procedure DoSomething(X: String); overload; virtual;  // Diese Signatur ist ja noch nicht als überschreibbar definiert
end;

[mirage228]

Zitat:

Zitat von Bernhard Geyer

Probier mal folgendes (nicht getestet):

Code:

type 
  TKindKlasse = class(TBasisKlasse) 
  private 
  public 
    procedure DoSomething(A: Integer); overload; override; 
    procedure DoSomething(X: String); overload; virtual;  // Diese Signatur ist ja noch nicht als überschreibbar definiert
end;

Hi,

Danke für deinen Vorschlag.
Aber leider funktioniert es so nicht, denn die Warnung ist immer noch da :-\

mfG
mirage228

[Tryer]

Delphi-Quellcode:

type 
  TBasisKlasse = class(TObject) 
  public 
    procedure DoSomething(A: Integer); overload; virtual; 
end;

Wenn Du die Methode bereits in der Basisklasse als overload deklarierst bleibt die Warnung aus.

MfG,
Tryer

[mirage228]

Zitat:

Zitat von Tryer

Delphi-Quellcode:

type 
  TBasisKlasse = class(TObject) 
  public 
    procedure DoSomething(A: Integer); overload; virtual; 
end;

Wenn Du die Methode bereits in der Basisklasse als overload deklarierst bleibt die Warnung aus.

MfG,
Tryer

Hi,

vielen Dank, es klappt. :thuimb: :cheers:

mfG
mirage228