Vou começar mostrando um fonte quase tradicional, sem usar nada de classe.
Postar uma parte de cada vez, pra explicar como funciona.
Também porque devo ter usado algumas coisas não muito comuns para alguns, ou só existentes no Harbour - pouca coisa.
Depois esse fonte vai ser transformado em classe, e é aí que fica poderoso.
Começar de trás pra frente, já mostrando a diferença de classe e função.
Isso vai ser usado somente no final, mas tudo bem.
Código: Selecionar todos
PRIVATE cOpc := " "
FUNCTION Execute()
// fonte da função
RETURN NIL
Considerando que vamos chamar a classe de CadastroClass, então isso vai ficar assim:
Código: Selecionar todos
CREATE CLASS CadastroClass
VAR cOpc INIT " "
METHOD Execute()
END CLASS
METHOD Execute() CLASS CadastroClass
// fonte da função
RETURN NIL
- Declarada a classe CadastroClass usando CREATE CLASS
- A antiga variável private, declarada usando VAR cOpc INIT " "
- A função Execute(), declarada usando METHOD. Primeiro como resumo na criação da classe, depois com o código fonte, acrescentado "CLASS CadastroClass" pra indicar que pertence à classe que criamos.
A título de curiosidade, é normal nos componentes Windows falarmos de propriedades e métodos.
São essas duas coisas aí: variável e função.
Dentro da classe, pra indicar a função ou variável dentro dela, indicamos com "::", ou "SELF:".
Exemplo: pra acessar cOpc dentro de Execute(), teríamos que escrever ::cOpc, ou SELF:cOpc
SELF = ela mesma
Já se chamássemos isso de um programa usando a classe seria diferente, porque a classe costuma ser uma variável.
A classe CadastroClass inteira está dentro da variável oClasse, todas as variáveis e funções dela, dentro de uma única variável.
Então indicamos na linha seguinte que é a variável cOpc, que está dentro da classe em oClasse. oClasse:cOpc
E se fosse a função Execute(), seria oClasse:Execute().
Se escrever só Execute(), isso se refere a uma função comum chamada Execute(), e não à função Execute() que agora está dentro de oClasse.
Ok. Só lembrando que tudo isso vamos usar no final.
