D5.Funcoes/FormataFone.pas at main · sourcecode-museum/D5.Funcoes · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Function FormataFone(Fone: String; Area: String): string;
//
// Formata uma cadeia de strings numericos em formato de
// numero de telefone
//
var
DDD      : String;
Prefixo  : String;
Numero   : String;
Telefone : String;
Caracter : String;
Ind      : Integer;
Estado   : Integer;    // 0-DDD, 1-Prefixo, 2-Numero
begin
Ind      := 1;
DDD      := '';
Prefixo  := '';
Numero   := '';
Estado   := -1;
Telefone := '';
while ind <= length(Fone) do
      begin
      caracter := Copy(Fone,ind,1);
      if caracter = '(' then
         begin
         Estado := 0;
         end
      else
         begin
         if caracter = ')' then
            begin
            if Estado = 0 then
               begin
               Estado := 1;
               end;
            end
         else
            begin
            if caracter = '-' then
               begin
               if Estado = 1 then
                  begin
                  Estado := 2;
                  end;
               end;
            end;
         end;
      case Estado of
           0 : DDD     := DDD     + Caracter;
           1 : Prefixo := Prefixo + Caracter;
           2 : Numero  := Numero  + Caracter;
      end;
      Ind := Ind + 1;
      end;
if Estado = -1 then
   begin
   Telefone := Fone;
   if Length(Telefone) = 10 then
      begin
      Result := '('+Copy(Telefone,1,3)+') '+Copy(Telefone,4,3)+'-'+Copy(Telefone,7,4);
      end
   else
      begin
      if Length(Telefone) = 7 then
         begin
         Result := '('+Area+') '+Copy(Telefone,1,3)+'-'+Copy(Telefone,4,4)
         end
      else
         begin
         Result := Fone;
         end;
      end;
   end
else
   begin
   if Length(DDD) = 0 then
      begin
      DDD := Area;
      end;
   if Length(Numero) = 0 then
      begin
      Result := '('+DDD+') '+Prefixo
      end
   else
      begin
      Result := '('+DDD+') '+Prefixo+'-'+Numero;
      end;
   end;
end;