Newbie sucht Hilfe - constructor vererben ?!

[galaxy2k]

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

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

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]