DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Função para validar Celular

Olá pessoal.

Dica simples mas bem útil para a validação de números de celulares.

Esta dica foi baseada na função enviada por Eduardo Souza.

É necessário dar uses de System.RegularExpressions.

Vamos ao código:

function IsValidCelular(aCelNumber: string): boolean;
var
  ipRegExp, vFone: string;
begin
  Result := False;
 
  { Recuperando somente os numeros }
  vFone := GetStrNumber(aCelNumber);
  try
    ipRegExp := '^[1-9]{2}(?:[6-9]|9[1-9])[0-9]{3}[0-9]{4}$';
    if TRegEx.IsMatch(vFone, ipRegExp) then
      Result := True;
  except
    on E: Exception do
      ShowMessage(E.ClassName + ' : ' + E.Message);
  end;
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsValidCelular('(55) 9963-7552') then
    ShowMessage('Sim')
  else
    ShowMessage('Nao');
 
  if IsValidCelular('(55) 99963-7552') then
    ShowMessage('Sim')
  else
    ShowMessage('Nao');
 
  if IsValidCelular('(550) 3443-7552') then
    ShowMessage('Sim')
  else
    ShowMessage('Nao');
 
  if IsValidCelular('(55) 3443-7552') then
    ShowMessage('Sim')
  else
    ShowMessage('Nao');
end;