TTelefone Operadores

Índice

1. AnsiString para TTelefone
2. TTelefone para AnsiString
3. Equal
4. NotEqual

---

1. class operator Implicit(ATelefone: AnsiString): TTelefone
   Valor: TTelefone.
   Exceções: classe: ETelefone, código(s): teStringTelefoneInvalida.
   A string passada ao método deve conter um número de telefone válido. Este número pode ou não conter os caracteres de formatação, mas caso estes estejam presentes não podem ser parciais. O DDD é opcional e caso não seja fornecido é atribuído para o número o valor padrão armazenado em DDDPadrao.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '1112345678';
  Writeln(tel.Formatado); // Imprime (11) 1234-5678.
  tel := '(11)1234-5678'; // O espaço em branco entre o DDD e o número é opcional.
  Writeln(tel.Formatado); // Imprime (11) 1234-5678.
  tel := '87654321';
  Writeln(tel.Formatado); // Imprime (11) 8765-4321 (o DDD 11 é o configurado inicialmente como padrão).

  tel := '1234567';       // Lança uma exceção, pois o número de dígitos está incorreto.
  tel := '(11) 12345678'; // Lança uma exceção, pois os caracteres de formatação estão incompletos.
  tel := '1234567X';      // Lança uma exceção, pois há uma letra na string.
  tel := '11123456789';   // Lança uma exceção, pois há dígitos demais.
end;

---

2. class operator Implicit(ATelefone: TTelefone): AnsiString
   Valor: string contendo o número do telefone, sem formatação.
   Exceções: nenhuma.
   Converte o número contido na estrutura em uma string, sem formatação.

---

3. class operator Equal(ATel1, ATel2: TTelefone): Boolean
   Valor: True se o conteúdo dos dois números forem iguais.
   Exceções: nenhuma.

---

4. class operator NotEqual(ATel1, ATel2: TTelefone): Boolean
   Valor: True se o conteúdo dos dois números forem diferentes.
   Exceções: nenhuma.