OBS/Adminhilfe/Vererbung Objectpascal: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Für diese Seite wurde eine Zugriffsbeschränkung eingerichtet. Falls du diese Nachricht siehst, bist du nicht berechtigt, diese Seite einzusehen.
Keine Bearbeitungszusammenfassung
Zeile 1: Zeile 1:
{{ZugriffOBS}}<font size="2" color="#000000" face="Arial"> </font>
{{ZugriffOBS}}<font size="2" color="#000000" face="Arial"> </font>
 
=Vererbung Objectpascal=
<div><center><font size="5" face="times new roman">'''override - overload - reintroduce - virtual'''</font></center></div><div><font size="3" face="times new roman">'''<br />'''<div><font size="3" face="times new roman">'''virtual'''</font><font size="3" face="times new roman"> und </font><font size="3" face="times new roman">'''dynamic'''</font><font size="3" face="times new roman"> besagen, daß diese Methode in Nachfahren </font><font size="3" face="times new roman">'''überschreibbar'''</font><font size="3" face="times new roman"> ist</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''override'''</font><font size="3" face="times new roman"> sagt, daß diese Methode eine virtuelle/dynamische Methode eines Vorfahren </font><font size="3" face="times new roman">'''überschreiben'''</font><font size="3" face="times new roman"> soll</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''abstract'''</font><font size="3" face="times new roman"> besagt, daß diese virtuelle/dynamische Mathode in der "ausgangsklasse" zwar </font><font size="3" face="times new roman">'''deklariert, aber nicht implementiert'''</font><font size="3" face="times new roman"> ist.</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''overload'''</font><font size="3" face="times new roman"> besagt, daß es eine gleichnamige Methode gibt (natürlich mit anderen Parametern)</font><br /><font size="3" face="times new roman">und diese paralell/alternativ aufrufbar sind</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">mit </font><font size="3" face="times new roman">'''reintroduce'''</font><font size="3" face="times new roman"> sagt man, daß es in den Vorfahren eine gleichnamige Methode gibt,</font><br /><font size="3" face="times new roman">man diese aber "absichtlich" </font><font size="3" face="times new roman">'''verdecken'''</font><font size="3" face="times new roman"> will. (ohne reintroduce würde der Compiler eine entsprechende Warnung anzeigen<div><font size="3" face="times new roman"><br /><div><font size="4" face="times new roman">'''Achtung Beispiel reintroduce zu vermeiden:'''<div><font size="4" face="times new roman">'''<br />'''<div><font size="3" face="times new roman">TKlasseA = class(TObject)</font><br /><font size="3" face="times new roman">function GetMD: TModelKlasseA; virtual; // überschreibbar machen</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">TKlasseB = class(TKlasseA)</font><br /><font size="3" face="times new roman">function GetMD: TModelKlasseB;</font><font size="3" face="times new roman">''' override'''</font><font size="3" face="times new roman">; // Vorgänger wird überschrieben</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman">..</font><br /><font size="3" face="times new roman">function TKlasseA.GetMD: TModelKlasseA;</font><br /><font size="3" face="times new roman">begin</font><br /><font size="3" face="times new roman">// vorerst mal leer, kann/wird sich aber ändern. Nötig, weil abstract fehlt. </font><br /><font size="3" face="times new roman">// wird abstract gewünscht, dann besser die function für TKlasseA wegen Überflüssigkeit</font><br /><font size="3" face="times new roman">// gleich weglassen und erst in TKlasseB einführen. Ausnahme : es handelt sich um eine Komponentenklasse,</font><br /><font size="3" face="times new roman">// die verkauft werden soll etc.</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">function TKlasseB.GetMD: TModelKlasseB;</font><br /><font size="3" face="times new roman">begin</font><br /><font size="3" face="times new roman">'''inherited;'''</font><font size="3" face="times new roman"> // zuerst GetMD von TKlasseA ausführen. Wird das weggelassen, dann wird TKlasseA.GetMD NICHT ausgeführt</font><br /><font size="3" face="times new roman">// der Krempel, den TKlasseB zusätzlich zu TKlasseA noch braucht</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman"><br />[[Category:html]]
<div><center><font size="5" face="times new roman">'''override - overload - reintroduce - virtual'''</font></center></div><div><font size="3" face="times new roman">'''<br />'''<div><font size="3" face="times new roman">'''virtual'''</font><font size="3" face="times new roman"> und </font><font size="3" face="times new roman">'''dynamic'''</font><font size="3" face="times new roman"> besagen, daß diese Methode in Nachfahren </font><font size="3" face="times new roman">'''überschreibbar'''</font><font size="3" face="times new roman"> ist</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''override'''</font><font size="3" face="times new roman"> sagt, daß diese Methode eine virtuelle/dynamische Methode eines Vorfahren </font><font size="3" face="times new roman">'''überschreiben'''</font><font size="3" face="times new roman"> soll</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''abstract'''</font><font size="3" face="times new roman"> besagt, daß diese virtuelle/dynamische Mathode in der "ausgangsklasse" zwar </font><font size="3" face="times new roman">'''deklariert, aber nicht implementiert'''</font><font size="3" face="times new roman"> ist.</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">'''overload'''</font><font size="3" face="times new roman"> besagt, daß es eine gleichnamige Methode gibt (natürlich mit anderen Parametern)</font><br /><font size="3" face="times new roman">und diese paralell/alternativ aufrufbar sind</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">mit </font><font size="3" face="times new roman">'''reintroduce'''</font><font size="3" face="times new roman"> sagt man, daß es in den Vorfahren eine gleichnamige Methode gibt,</font><br /><font size="3" face="times new roman">man diese aber "absichtlich" </font><font size="3" face="times new roman">'''verdecken'''</font><font size="3" face="times new roman"> will. (ohne reintroduce würde der Compiler eine entsprechende Warnung anzeigen<div><font size="3" face="times new roman"><br /><div><font size="4" face="times new roman">'''Achtung Beispiel reintroduce zu vermeiden:'''<div><font size="4" face="times new roman">'''<br />'''<div><font size="3" face="times new roman">TKlasseA = class(TObject)</font><br /><font size="3" face="times new roman">function GetMD: TModelKlasseA; virtual; // überschreibbar machen</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">TKlasseB = class(TKlasseA)</font><br /><font size="3" face="times new roman">function GetMD: TModelKlasseB;</font><font size="3" face="times new roman">''' override'''</font><font size="3" face="times new roman">; // Vorgänger wird überschrieben</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman">..</font><br /><font size="3" face="times new roman">function TKlasseA.GetMD: TModelKlasseA;</font><br /><font size="3" face="times new roman">begin</font><br /><font size="3" face="times new roman">// vorerst mal leer, kann/wird sich aber ändern. Nötig, weil abstract fehlt. </font><br /><font size="3" face="times new roman">// wird abstract gewünscht, dann besser die function für TKlasseA wegen Überflüssigkeit</font><br /><font size="3" face="times new roman">// gleich weglassen und erst in TKlasseB einführen. Ausnahme : es handelt sich um eine Komponentenklasse,</font><br /><font size="3" face="times new roman">// die verkauft werden soll etc.</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman">function TKlasseB.GetMD: TModelKlasseB;</font><br /><font size="3" face="times new roman">begin</font><br /><font size="3" face="times new roman">'''inherited;'''</font><font size="3" face="times new roman"> // zuerst GetMD von TKlasseA ausführen. Wird das weggelassen, dann wird TKlasseA.GetMD NICHT ausgeführt</font><br /><font size="3" face="times new roman">// der Krempel, den TKlasseB zusätzlich zu TKlasseA noch braucht</font><br /><font size="3" face="times new roman">end;</font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman"></font><br /><font size="3" face="times new roman"><br />[[Category:html]]
----
----
[[Benutzer:Auto import|Auto import]] 15:18, 25. Aug. 2011 (CEST)
[[Benutzer:Auto import|Auto import]] 15:18, 25. Aug. 2011 (CEST)

Version vom 2. Januar 2012, 14:57 Uhr

Dies ist eine zugriffsgeschützte Seite.


Admin-Hilfe

OBS-Administration / Installation
kundenspezifische Anpassungen
OBS Protokolle
Shop-Administration

Vererbung Objectpascal

override - overload - reintroduce - virtual

virtual und dynamic besagen, daß diese Methode in Nachfahren überschreibbar ist

override sagt, daß diese Methode eine virtuelle/dynamische Methode eines Vorfahren überschreiben soll

abstract besagt, daß diese virtuelle/dynamische Mathode in der "ausgangsklasse" zwar deklariert, aber nicht implementiert ist.

overload besagt, daß es eine gleichnamige Methode gibt (natürlich mit anderen Parametern)
und diese paralell/alternativ aufrufbar sind

mit reintroduce sagt man, daß es in den Vorfahren eine gleichnamige Methode gibt,
man diese aber "absichtlich" verdecken will. (ohne reintroduce würde der Compiler eine entsprechende Warnung anzeigen

Achtung Beispiel reintroduce zu vermeiden:

TKlasseA = class(TObject)
function GetMD: TModelKlasseA; virtual; // überschreibbar machen
end;

TKlasseB = class(TKlasseA)
function GetMD: TModelKlasseB; override; // Vorgänger wird überschrieben
end;
..
function TKlasseA.GetMD: TModelKlasseA;
begin
// vorerst mal leer, kann/wird sich aber ändern. Nötig, weil abstract fehlt.
// wird abstract gewünscht, dann besser die function für TKlasseA wegen Überflüssigkeit
// gleich weglassen und erst in TKlasseB einführen. Ausnahme : es handelt sich um eine Komponentenklasse,
// die verkauft werden soll etc.
end;

function TKlasseB.GetMD: TModelKlasseB;
begin
inherited; // zuerst GetMD von TKlasseA ausführen. Wird das weggelassen, dann wird TKlasseA.GetMD NICHT ausgeführt
// der Krempel, den TKlasseB zusätzlich zu TKlasseA noch braucht
end;




Auto import 15:18, 25. Aug. 2011 (CEST)