TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Cristiano Lino Felicio_

Gravado em

comparado com

Nova versão Atual

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
Uma classe filha "Circle" herdando a
Portuguese
languagecpp
firstline1
title
Section
O mecanismo de herança em TLPP permite que criar uma nova classe herde herdando propriedades e métodos de uma classe base já existente.
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.
Bloco de código
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
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