Tuesday, 9 April 2013

What is the function of Inheritance in Delphi?


  • The inheritance needs a parent and a child class where the child class inherits the property of the parent class. 
  • Child can have their own functions or inherit functions and properties from the parent class. 
  •  TFootball child class is the base class and inheriting the properties of TBall class of the parents. 
  • For Ex.
var
beachBall : TBall;
soccerBall : TFootball;
begin
beachBall := TBall.Create(5);
soccerBall := TFootball.Create(5, 12);

beachBall.Kick(10);
soccerBall.Kick(10);

ShowMessageFmt('Beach ball is moving at speed : %d',[beachBall.GetSpeed]);
ShowMessageFmt('Soccer ball is moving at speed : %d',[soccerBall.GetSpeed]);
end;

The output is shown as such:
Beach ball is moving at speed: 12
Soccer ball is moving at speed: 12

No comments:

Post a Comment