convert inherited; to inherited create(nil);

[WarLock]

hi all
like the subject i ihave this portion of code to convert to lazarus

this code work in delphi

Code: [Select]

procedure TODERagdollBone.Stop;
begin
  inherited;
  dBodyDestroy( FBody );
  if Assigned( FGeom.data ) then
  begin
    FRagdoll.GLSceneRoot.Remove( TGLBaseSceneObject( FGeom.data ), false );
  end;
  dGeomDestroy( FGeom );
end;          

so i convert it to

Code: [Select]

procedure TODERagdollBone.Stop;
begin
  inherited create(nil);
  dBodyDestroy( FBody );
  if Assigned( FGeom.data ) then
  begin
    FRagdoll.GLSceneRoot.Remove( TGLBaseSceneObject( FGeom.data ), false );
  end;
  dGeomDestroy( FGeom );
end;          

this is right to convert like this
thanks
Warlock

[matthijs]

I do not think so. inherited is not calling the Create-method from its parent class but the Stop-method. Most probably this object is derived from some other object which has a Stop-method defined as overidable. So if inherited on its own is not accepted by the compiler, you might change this line to

Code: [Select]

inherited stop;
If the Stop-method is the destructor of your object, you should place the inherited-statement as the last statement in your procedure. But all this is a bit hard to say if I have to go only by the pieces of code you have given.

[WarLock]

If the Stop-method is the destructor of your object, you should place the inherited-statement as the last statement in your procedure. But all this is a bit hard to say if I have to go only by the pieces of code you have given.

i understand and it's why i put online the package thati'm trying to compile.It's Glscene for lazarus thats work reasonably + oxGLODE from Dave Gravel.

you can download at http://www.hybride.ca/union/upload/public/File/glscene.zip  [17,5 m]

I'm sure it's prety simple to make it's compile if some pro help me

Thanks
WarLock