Herança

TLPP - LANGUAGE

O mecanismo de herança em TLPP permite que uma nova classe herde propriedades e métodos de uma classe base.
Por motivos de analogia do conceito, assumida em muitas literaturas e documentações, quem herda é chamada de "classe filha" e quem oferece uma base é chamada de "classe pai".
Em TLPP, não há herança múltipla, ou seja, uma classe filha poderá ter apenas uma classe pai.

Importante ressaltar que a classe pai poderá ser uma classe escrita em TLPP, Advpl ou ainda uma classe nativa oferecida pelo próprio servidor de aplicação.
Utiliza-se a palavra reservada "From" para definir uma nova herança de classes.

Uma classe filha "Circle" herdando a classe pai "Point". Ambas escritas em TLPP.

#include "tlpp_core_dev.th"

Class Point
   private data x as numeric
   private data y as numeric
   public method New(x, y)
   public method getX() as numeric
   public mehtod getY() as numeric
EndClass

Class Circle From Point
   private data r as numeric
   public method New(x, y, r)
   public method draw()
EndClass

implementando os métodos (veja que o nome da classe sempre é mencionado)

#include "tlpp_core_dev.th"

Class MyClass
   private data nValue as numeric
   private data cValue as character
 
   public method New()
   public method getNumber() as numeric
   public method getText() as character
   public method setNumber(n)
   public method setText(c)
EndClass
 
 
Method New() class MyClass
Return Self
 
 
Method getNumber() as numeric class MyClass
Return nValue
 
 
Method getText() as character class MyClass
Return cValue
 
 
Method setNumber(n) class MyClass
   ::nValue := n
Return
 
 
Method setText(c) class MyClass
   ::cValue := c
Return

Árvore de páginas

Herança

TLPP - LANGUAGE