Vorab , ich bin in der Oberstufe und noch ein relativer lamer in Delphi . Wir arbeiten gerade mit der Klasse mSum und Delphi 7.0 , um uns zu orientieren.

Zu meinem Problem :

Wir sollen ein Planetensystem programmieren. Im Prinzip kein Problem mit einer Kennt-Bezeihung zu realisieren . Jetzt kommt das große ABER

Wir haben eine Klasse namens mFigur . Dort wird der constructor defeniert und die Prozedur zeichne , loesche als privat ,sowie die Prozedur bewege als virtual/abstract deklariet .
Nun habe ich eine Klasse mSonne und eine mPlanet . mSonne ist einfach nur leer im Implementationteil und eine Klasse von mFigur .mPlanet dagegen soll mSonne kennen und ist eine Klasse von mFigur .

Mein Problem besteht jetzt darin , dass der constructor Teil von mFigur übernommen wird ,aber noch zusätzliche Parameter hinzugefügt werden in mPlanet . mPlanet muss ja mSonne kennen . Wie kann ich jetzt den alten constructor vererben ? Ich weiß wie das bei Prozeduren geht , mit Hilfe von inherited procedure_name , aber mir fehlt leider das KnowHow zur Zeit .



mfg R.K.


p.s. leider ist unser Lehrer nicht der beste in erklären

Ich hoffe ich hab dich richtig verstanden...

Du kannst den geerbten Constructor auch einfach mit inherited [constructor] aufrufen (genauso wie bei andren prozeduren)...

Kann sein , dass ich doch was vergessen hab . Also , das alles soll sich im Interface abspielen und anschließend im Implementation-Teil von mPlanet für nähere Anweißungen.

Hier die Source-Beispiel:

mFigur

zusammenfalten · markieren

Delphi-Quellcode:

unit mFigur;

interface
uses mSum;
  type TFigur = class

  hatpen : buntstift;
  zXPos,zYpos,zGeschw,zRadius : Zahl;
  zFarbe : GanzeZahl;

[B] constructor init(pXpos,pYpos,pRadius,pGeschw:Zahl;pFarbe : GanzeZahl);virtual;[/B]

  procedure zeichne;
  procedure bewege;virtual;abstract;
  procedure loesche;

  destructor gibfrei;
end;

mPlanet

zusammenfalten · markieren

Delphi-Quellcode:

unit mPlanet;

interface
 uses mSum,mFigur,mSonne;
 type
  TPlanet = class(TFigur)

  hatpen : buntstift;
  Sonne : TSonne;
  zAbstand : Zahl;

  [B]constructor init(pSonne : TSonne; pAbstand : Zahl) ;override;[/B]
  procedure bewege;override;

  end;

Jetzt sollen natürlich die Parameter von mFigur vererbt werden ,damit ich mSonne in mPlanet benutzen kann und die Kennt-Beziehung vorhanden ist .


mfg R.K.


p.S. natürlich ist der Code in mPlanet falsch und so nicht complierbar

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

Eine Methode kann nur überschrieben werden, wenn die neu implementierte Methode dieselben Parameter aufnimmt. Um in einer abgeleiteten Klasse eine Methode mit einem Namen einführen zu können, der in der Basis-Klasse schon einmal existiert braucht man "reintroduce".

mal was leicht OffTopic, aber ich hab dazu ne Frage, kann man Constructoren vererben ? In C++ geht dass ja nicht. Wie auch immer, also ich mach es immer so dass ich den COnstructor überlade, also nicht über schreibe mit Override, sondern mit Overload überlade und dann mit inherited create(AOwner) den StandardKonstruktor der Klasse mit in meinen einbinde.

Schaut euch vielleicht mal meine Ausarbeitung über OOP in Delphi an: www.x-spy.net/personal

So wie JoelH geschrieben hat , meinte ich das . Denn mPlanet braucht den constructor von mFigur und zusätzliche Parameter (kenntSonne).



Mal sehen , ich werde es mal versuchen .


thx g2k

Moin g2k,

da Du eine Pro Version hast, sind ja auch die Sourcen dabei.
Schau Dir da doch mal an, wie Borland das bei TThread gemacht hat.
Diese Kompo lebt praktisch davon, dass Du bei davon abgeleiteten Klassen einen anders strukturierten Constructor verwendest, als den der Basisklasse.

Danke für eure Hilfe . Hab es endlich geschafft . Mein Denkfehler war noch , dass der Init Teil im Implementation´bereich neu geschrieben werden muss usw. Seitdem luppt es wunderbar und ich hab wieder was dazugelernt .

Und nochmals danke für den Befehl overload .


mfg g2k

Hallo galaxy2k,
Deine Klasse TFigur wird implizit von TObject abgeleitet. Dadurch hat sie schon einen constructor und einen destructor geerbt. Dadurch, dass Du Deinen constructor Init nennst, erhält Deine Klasse TFigur einen zweiten constructor (Klassen können beliebig viele constructoren haben). Wenn Du innerhalb der des constructors Init nicht inherited Create aufrufst begehst Du einen schweren Fehler. Das geleiche gilt für Deinen destructor gibfrei. Damit hast Du dann die "VirtualChain" unterbrochen und Deine Objekte werden nicht richtig erstellt bzw. abgeräumt.