Beispiel: Methoden deklarieren
Nach oben zu Methoden deklarieren
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;