Beispiel: Methoden deklarieren

Nach oben zu Methoden erzeugen - Index

Der folgende Code zeigt, wie in einer Komponente zwei neue Methoden definiert werden: eine protected-Methode und eine virtuelle public-Methode.

C++

Die Schnittstellendefinition in der Header-Datei sieht folgendermaßen aus:

 class PACKAGE TSampleComponent : public TControl
 {
 protected:
     void __fastcall MakeBigger();
 public:
     virtual int __fastcall CalculateArea();
   .
   .
   .
 };

Es folgt der Code in der .CPP-Datei der Unit, die diese Methoden implementiert:

 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;                              { statische Methode als public deklarieren }
   public
         function CalculateArea: Integer; virtual;            { virtuelle Methode als public deklarieren }
   end;
 .
 .
 .
 implementation
 .
 .
 .
 procedure TSampleComponent.MakeBigger;                          { erste Methode implementieren }
 begin
     Height := Height + 5;
     Width := Width + 5;
 end;
 function TSampleComponent.CalculateArea: Integer;              { zweite Methode implementieren }
 begin
     Result := Width * Height;
 end;

Siehe auch

• Methoden erzeugen: Übersicht
• Methoden deklarieren