Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 14 Próxima »

TLPP - LANGUAGE

A implementação de uma classe em TLPP deve seguir as seguintes etapas:

1.  incluir arquivo de cabeçalho tlpp_core_dev.th
2.  definir o nome da classe
3.  declarar propriedades
4.  declarar métodos
5.  implementar os métodos



começando com o include
#include "tlpp_core_dev.th" 



criando uma classe chamada MyClass
#include "tlpp_core_dev.th"

Class MyClass
EndClass
inserindo duas propriedades: nValue e cValue
#include "tlpp_core_dev.th"
Class MyClass
   private data nValue as numeric
   private data cValue as character
EndClass



inserindo métodos: construtor New e outros quatro de acesso às propriedades
#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
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
  • Sem rótulos