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]