Inherited bei Funktionen

Bayo · Beiträge: 39

Hi zusammen

Ich habe da ein kleines Problem mit Methodenüberlagerung :-(

: Sobald ich in einer Funkton die Verarbeitung ihrer Superklasse aufrufe bzw. Inherited, bringt der Compiler die Fehlerbildung: Incompatible types

Ändere ich die Funktion in einer Prozedur und lasse somit den Rückgabewert weg, funktioniert es! Kann ich in einer Funktion kein Inherited aufrufen? Wenn ja, wieso nicht? Natürlich kann ich dieses Problem mit einem Var-Parameter und einer Prozedur lösen, es interessiert mich aber, ob das wirklich nicht geht!

Hier ein gekürztes Beispiel:

markieren

Quelltext

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

TKlasse1 = class(TObject)
  function test: Boolean; Virtual;
end;

TKlasse2 = class(TKlasse1)
  function test: Boolean; Override;
end;

implementation

function TKlasse1.test: Boolean;
begin
  Result := False;
  Mach etwas;
  Result := True;
end;

function TKlasse2.text: Boolean;
begin
  Result := False;
  Mach etwas anderes;
  Result := True;
  Inherited;
end;

Ich bedanke mich für jede Antwort!!

Grüsse Dominic

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Das müsste so gehen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

function TKlasse2.text: Boolean; 
begin 
  Result := False; 
  Mach etwas anderes; 

  Result := Inherited; 
end;

Denn Inherited liefert ja auch ein Ergebnis zurück!

Gruß

Bayo · Beiträge: 39

Ja, das würde sinn machen... hab ich auch schon probiert, funktioniert leider auch nicht!

Trotzdem danke ich für deine Antwort :-)

Grüsse Dominic

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Sorry, muss natürlich so sein:

markieren

Quelltext

1:	Result := Inherited Test;

Gruß
TINO

wwerner · Beiträge: 185

TKlasse1 = class(TObject)
function test: Boolean; Virtual;
end;

TKlasse2 = class(TKlasse1)
function test: Boolean; Override;
end;

implementation

function TKlasse1.test: Boolean;
begin
Result := False;
Mach etwas;
Result := True;
end;

function TKlasse2.test: Boolean;
begin
Result := False;
Mach etwas anderes;
Result := True;
Inherited test;
end;

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

Bayo · Beiträge: 39

Yep, das haupt hin :-)

Ich bedanke mich für die Antworten!!

Grüsse Dominic

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme