Example of Declaring Methods
Go Up to Declaring Methods
The following code shows a component that defines two new methods, one protected method and one public virtual method.
C++
This is the interface definition in the header file:
class PACKAGE TSampleComponent : public TControl
{
protected:
void __fastcall MakeBigger();
public:
virtual int __fastcall CalculateArea();
.
.
.
};
This is the code in the .CPP file of the unit that implements the methods:
void __fastcall TSampleComponent::MakeBigger()
{
Height = Height + 5;
Width = Width + 5;
}
int __fastcall TSampleComponent::CalculateArea()
{
return Width * Height;
}
Delphi
type
TSampleComponent = class(TControl)
protected
procedure MakeBigger; { declare protected static method }
public
function CalculateArea: Integer; virtual; { declare public virtual method }
end;
.
.
.
implementation
.
.
.
procedure TSampleComponent.MakeBigger; { implement first method }
begin
Height := Height + 5;
Width := Width + 5;
end;
function TSampleComponent.CalculateArea: Integer; { implement second method }
begin
Result := Width * Height;
end;