Exemple de déclaration de méthodes
Remonter à Création de méthodes - Index
Le code suivant montre un composant qui définit deux nouvelles méthodes, l'une est déclarée protected et l'autre public virtuelle.
C++
Il s'agit de la définition d'interface contenue dans le fichier d'en-tête :
class PACKAGE TSampleComponent : public TControl { protected: void __fastcall MakeBigger(); public: virtual int __fastcall CalculateArea(); . . . };
Voici le code qui figure dans le fichier .CPP de l'unité qui implémente les méthodes :
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;