Telefone Propriedades

Índice

1. DDD
2. Parte1
3. Parte2
4. Tipo
5. Formatado
6. DDDPadrao

---

1. var DDD: TDDD
   Acesso: leitura e gravação.
   Valor: tipo DDD com somente a parte referente ao código de Discagem Direta a Distância.
   Exceções: nenhuma.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '(11) 1234-5678';
  Writeln(tel.DDD); // Imprime 11.
end;

---

2. property Parte1: AnsiString
   Acesso: leitura e gravação.
   Valor: string contendo a primeira parte do número do telefone.
   Exceções: classe: ETelefone, código(s): teStringTelefoneInvalida.
   A primeira parte do número pode variar, conforme o tipo da linha: 5 dígitos para linhas móveis e 4 para linhas fixas. Para as linhas móveis, o primeiro dígito deve obrigatoriamente ser 9.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '(11) 1234-5678';
  tel.Parte1 := '4321';
  Writeln(tel.Formatado); // Imprime (11) 4321-5678.
end;

---

3. property Parte2: AnsiString
   Acesso: leitura e gravação.
   Valor: string contendo a segunda parte do número do telefone.
   Exceções: classe ETelefone, código(s): teStringTelefoneInvalida.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '(11) 1234-5678';
  tel.Parte2 := '8765';
  Writeln(tel.Formatado); // Imprime (11) 1234-8765.
end;

---

4. property Tipo: TTipoTelefoneEnum
   Acesso: somente leitura.
   Valor: ttFixo ou ttMovel para linhas fixas ou móveis, respectivamente.
   Exceções: nenhuma.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '(11) 1234-5678';
  Writeln(GetEnumName(TypeInfo(TTipoTelefoneEnum), Ord(tel.Tipo)); // Imprime ttFixo.
  tel := '(11) 91234-5678';
  Writeln(GetEnumName(TypeInfo(TTipoTelefoneEnum), Ord(tel.Tipo)); // Imprime ttMovel.
end;

---

5. function Formatado: AnsiString
   Acesso: somente leitura.
   Valor: string contendo o número do telefone, com os caracteres de formatação.
   Exceções: nenhuma.
   Ex.:
   

var
  tel: TTelefone;
begin
  tel := '1112345678';
  Writeln(tel.Formatado); // Imprime (11) 1234-5678.
end;

---

6. static TTelefone.DDDPadrao
   Acesso: leitura e gravação.
   Valor: O valor inicial é ddd11.
   Exceções: nenhuma.
   Ex.:
   

var
  tel: TTelefone;
begin
  // O valor inicial de TTelefone.DDDPadrao é ddd11.
  tel := '1234-5678';     // Número de telefone sem o DDD.
  Writeln(tel.Formatado); // Imprime (11) 1234-5678.

  tel := NULL_TELEFONE;

  TTelefone.DDDPadrao := ddd21;
  tel := '1234-5678';     // Número de telefone sem o DDD.
  Writeln(tel.Formatado); // Imprime (21) 1234-5678.
end;