como contar qtos caracteres tem no campo cgc

Delphi

01/02/2005

como contar qtos caracteres tem no campo cgc?

gostaria de saber isto para q o sistema julgue se o cliente é pessoa fisica ou pessoa juridica



obrigado.


Rogsystem

Rogsystem

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

01/02/2005

Colega,

Supondo que o dado esteja digitado em ´Edit1´ :
case Length(Edit1.Text) of
  11: ShowMessage(É um CPF.´);
  14: ShowMessage(É um CNPJ.´);
  else ShowMessage(Não é CPF ou CNPJ.´);
end;


PS: Estou considerando a contagem sem pontos, barras ou traços.

T+


GOSTEI 0
POSTAR