TTelefone Métodos

Índice

1. ValidarNumero
2. Extrair

---

1. class function ValidarNumero(ANumero: AnsiString): Boolean;
ANumero: string cujo conteúdo deve ser testado.
   Resultado: True se a string passada ao método contém um número de telefone válido.
   Exceções: nenhuma.
   A string analisada pode ou não conter os caracteres de formatação. Caso estes estejam presentes, devem estar completos, pois se forem fornecidos parcialmente o conteúdo é considerado inválido. O número do DDD é opcional.
   Ex.:
   

begin
  if TTelefone.ValidarNumero('1112345678') then // Número sem caracteres de formatação.
    Writeln('Válido'); // Imprime Válido.
  if TTelefone.ValidarNumero('(11) 1234-5678') then // Número com caracteres de formatação.
    Writeln('Válido'); // Imprime Válido.
  if TTelefone.ValidarNumero('12345678') then // Número sem o DDD e sem formatação.
    Writeln('Válido'); // Imprime Válido.
  if TTelefone.ValidarNumero('1234-5678') then // Número sem DDD, mas com formatação.
    Writeln('Válido'); // Imprime Válido.

  if TTelefone.ValidarNumero('111234567') then
    Writeln('Válido'); // Não será impresso. Um número com 9 dígitos poderia ser de uma linha móvel sem o DDD,
                       // mas o primeiro dígito não é 9.
  if TTelefone.ValidarNumero('(11) 1234-567') then
    Writeln('Válido'); // Não será impresso. Falta um dígito.
  if TTelefone.ValidarNumero('(11) 12345678') then
    Writeln('Válido'); // Não será impresso. Dígitos de formatação incompletos.
  if TTelefone.ValidarNumero('(11) 1234-567X') then
    Writeln('Válido'); // Não será impresso. Existe uma letra na string.
end;

---

2. class function Extrair(ATexto: AnsiString; out AResultado: TDadosExtraidosArray): Integer
ATexto: string cujo conteúdo deve ser pesquisado a procura de números de telefone.
   AResultado: armazena os números de telefone encontrados em ATexto.
   Resultado: número de telefones que foram encontrados em ATexto.
   Exceções: nenhuma.
   Realiza pesquisa no conteúdo de uma string a procura de números de telefone, que podem ou não conter os caracteres de formatação. Caso tenham a formatação, devem estar completas, caso contrário o número será considerado inválido e não é adicionado em AResultado.
   Ex.:
   

var
  ade: TDadosExtraidosArray;
  i: Integer;
begin
  SetLength(ade, 0);
  Writeln(TTelefone.Extrair('número do telefone: 1234-5678.', ade)); // Imprime 1.
  for i := 0 to High(ade) do
  with ade[i] do
    Writeln(Dados, ' ', Posicao); // 1234-5678 20.
end;