TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Cristiano Lino Felicio_

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Cristiano Lino Felicio_

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Estado
subtletrue
colourGreen
titletlpp - language

Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese
Section
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 o uso de uma nova herança de classes.



Bloco de código
languagecpp
firstline1
titleUma classe pai "Point" sendo herdada pela filha "Circle"
#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
Bloco de código
languagecpp
firstline1
titleimplementando 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