Morfik - Validação de CPF com Object Pascal e Javascript juntos

Olá,

Sou Carlos Eduardo Paulino e irei lhe mostrar agora um pouco da versatilidade da IDE Morfik!

 Uma das principais vantagens de Morfik é de ser uma ferramenta que lhe permite escolher a linguagem que você domina ou mesmo que já tem alguma biblioteca ou função e pretende implementar em sua aplicação. Isto quer dizer que você simplesmente pode ao mesmo tempo utilizar uma chamada a uma DLL externa, uma unit feita no delphi, ou melhor, ainda! Caso tenha necessidade, pode escrever seus códigos em javascript como se estivesse escrevendo em Object Pascal, isto é, no final das contas Morfik irá gerar o código para o client em javascript. Isto se torna uma realização para muitos desenvolvedores e para outros abre um mundo de possibilidades até então não encontradas em outras ferramentas.

Observem a função abaixo:

function vercpf(cpf : String) : boolean; JavaScript;

 (*!

   if ( cpf.length != 11 ||

     cpf == “00000000000? ||

     cpf == “11111111111? ||

     cpf == “22222222222? ||

     cpf == “33333333333? ||

     cpf == “44444444444? ||

     cpf == “55555555555? ||

     cpf == “66666666666? ||

     cpf == “77777777777? ||

     cpf == “88888888888? ||

     cpf == “99999999999?)

  return false;

  add = 0;

  for (i=0; i < 9; i ++)

    add += parseInt(cpf.charAt(i)) * (10 – i);

  rev = 11 – (add % 11);

  if (rev == 10 || rev == 11)

    rev = 0;

  if (rev != parseInt(cpf.charAt(9)))

    return false;

  add = 0;

  for (i = 0; i < 10; i ++)

    add += parseInt(cpf.charAt(i)) * (11 – i);

  rev = 11 – (add % 11);

  if (rev == 10 || rev == 11)

    rev = 0;

  if (rev != parseInt(cpf.charAt(10)))

    return false;

  return true;

 *)

Notem que no cabeçalho da função informamos para Morfik que será um código Javascript:

function vercpf(cpf : String) : boolean; JavaScript;

 (*!

…

*)

Em seguida implementamos a função com todos os recursos do editor, ou seja, autocomplete, intellisense e tudo mais.

Agora em uma função disparada por um evento qualquer, ou mesmo chamadas em outros métodos, podemos utilizar esta função como tivesse sido escrita em Object Pascal.

Exemplo de utilização:

Procedure frmRoot.Button1Click(Event: TDOMEvent);

Begin

  if vercpf(TextEdit1.text) then

     Showmessage('CPF OK')

  else

     Showmessage('CPF Invalido');

  end;

End;

Prontinho! Não é fácil?

Claro que geralmente iremos implementar nossas funções em uma linguagem só, mas imaginem se em um projeto compartilhado com um desenvolvedor web que não conheça Object Pascal por exemplo, ou então outros casos em que você está reutilizando uma regra complexa que já existe em um javascript e que seja de difícil tradução.

Este foi mais um exemplo do poder de Morfik.

Carlos Eduardo Paulino

cadumicro@hotmail.com