Mudanças entre as edições de "Tiny Types"

De Grupo Acert
Ir para: navegação, pesquisa
 
Linha 2: Linha 2:
  
 
Vamos usar como exemplo códigos fictícios, porém muito comum de encontrar em diversos projetos:
 
Vamos usar como exemplo códigos fictícios, porém muito comum de encontrar em diversos projetos:
 
  
 
   TPessoa = class
 
   TPessoa = class
Linha 12: Linha 11:
  
 
Com essa classe em mãos conseguimos usar o código normalmente.
 
Com essa classe em mãos conseguimos usar o código normalmente.
 
  
 
   var
 
   var
Linha 25: Linha 23:
  
 
Uma alternativa, que é a mais usada, seria uma classe utilitária onde teremos diversas funções para resolver esses pequenos problemas.
 
Uma alternativa, que é a mais usada, seria uma classe utilitária onde teremos diversas funções para resolver esses pequenos problemas.
 
  
 
   TClasseUtils = class
 
   TClasseUtils = class
Linha 35: Linha 32:
  
 
Dessa forma podemos validar o CNPJ em qualquer lugar do sistema, porém criamos dependência dessa TClasseUtils.
 
Dessa forma podemos validar o CNPJ em qualquer lugar do sistema, porém criamos dependência dessa TClasseUtils.
 
  
 
   if TClasseUtils.ValidaCNPJ(Pessoa.CNPJ) then
 
   if TClasseUtils.ValidaCNPJ(Pessoa.CNPJ) then
Linha 43: Linha 39:
  
 
Uma outra alternativa, que na minha opinião deixa o código mais elegante e expressivo, é através do uso de Tiny Types. Então, que tal isso:
 
Uma outra alternativa, que na minha opinião deixa o código mais elegante e expressivo, é através do uso de Tiny Types. Então, que tal isso:
 
  
 
   TPessoaNova = class
 
   TPessoaNova = class
Linha 50: Linha 45:
 
     property CNPJ: TCNPJ read FCNPJ write FCNPJ;
 
     property CNPJ: TCNPJ read FCNPJ write FCNPJ;
 
   end;
 
   end;
 
+
 
 
   var
 
   var
 
     Pessoa: TPessoaNova;
 
     Pessoa: TPessoaNova;
Linha 78: Linha 73:
  
 
   unit DocsBR;
 
   unit DocsBR;
 
+
 
 
   interface
 
   interface
 
+
 
 
   type
 
   type
 
+
 
 
     TCNPJ = record
 
     TCNPJ = record
      private
+
    private
 
       FUnformatted: string;
 
       FUnformatted: string;
 
       function GetFormatted: string;
 
       function GetFormatted: string;
 
+
 
 
     public
 
     public
 
       class operator Implicit(const CNPJ: string): TCNPJ;
 
       class operator Implicit(const CNPJ: string): TCNPJ;
 
       class operator Implicit(const CNPJ: TCNPJ): string;
 
       class operator Implicit(const CNPJ: TCNPJ): string;
 
    function IsValid(): Boolean;
 
 
    property Unformatted: string read FUnformatted;
 
    property Formatted: string read GetFormatted;
 
 
  end;
 
 
  TCPF = record
 
  private
 
    FUnformatted: string;
 
 
    
 
    
    function GetFormatted: string;
+
      function IsValid(): Boolean;
   public
+
 
     class operator Implicit(const CPF: string): TCPF;
+
      property Unformatted: string read FUnformatted;
    class operator Implicit(const CPF: TCPF): string;
+
      property Formatted: string read GetFormatted;
 
+
 
    function IsValid(): Boolean;
+
    end;
 
+
 
    property Unformatted: string read FUnformatted;
+
    TCPF = record
    property Formatted: string read GetFormatted;
+
    private
 
+
      FUnformatted: string;
   end;
+
    
 
+
      function GetFormatted: string;
 +
     
 +
     public
 +
      class operator Implicit(const CPF: string): TCPF;
 +
      class operator Implicit(const CPF: TCPF): string;
 +
 
 +
      function IsValid(): Boolean;
 +
 
 +
      property Unformatted: string read FUnformatted;
 +
      property Formatted: string read GetFormatted;
 +
    
 +
    end;
 +
 
 
   implementation
 
   implementation
 
+
 
 
   uses
 
   uses
 
     MaskUtils, StrUtils, SysUtils;
 
     MaskUtils, StrUtils, SysUtils;
 
+
 
 
   function Clear(const Doc: string): string;
 
   function Clear(const Doc: string): string;
 
   var
 
   var
 
     Letter: Char;
 
     Letter: Char;
 
   begin
 
   begin
 
+
 
 
     Result := '';
 
     Result := '';
 
+
 
 
     for Letter in Doc do
 
     for Letter in Doc do
 
     begin
 
     begin
 
+
 
 
       if Letter in ['0'..'9'] then
 
       if Letter in ['0'..'9'] then
 
         Result := Result + Letter;
 
         Result := Result + Letter;
 
+
 
 
     end;
 
     end;
 
+
 
 
   end;
 
   end;
 
+
 
 
   { TCNPJ }
 
   { TCNPJ }
 
+
 
 
   class operator TCNPJ.Implicit(const CNPJ: string): TCNPJ;
 
   class operator TCNPJ.Implicit(const CNPJ: string): TCNPJ;
 
   begin
 
   begin
 
 
     Result.FUnformatted := Clear(CNPJ);
 
     Result.FUnformatted := Clear(CNPJ);
 
 
   end;
 
   end;
 
+
 
 
   function TCNPJ.GetFormatted: string;
 
   function TCNPJ.GetFormatted: string;
 
   begin
 
   begin
 
 
     Result := MaskUtils.FormatMaskText('00.000.000/0000-00;0; ', FUnformatted);
 
     Result := MaskUtils.FormatMaskText('00.000.000/0000-00;0; ', FUnformatted);
 
 
   end;
 
   end;
 
+
 
 
   class operator TCNPJ.Implicit(const CNPJ: TCNPJ): string;
 
   class operator TCNPJ.Implicit(const CNPJ: TCNPJ): string;
 
   begin
 
   begin
 
 
     Result := CNPJ.FUnformatted;
 
     Result := CNPJ.FUnformatted;
 
 
   end;
 
   end;
 
+
 
 
   function TCNPJ.IsValid: Boolean;
 
   function TCNPJ.IsValid: Boolean;
 
   const
 
   const
Linha 178: Linha 168:
 
     D1, D2: Integer;
 
     D1, D2: Integer;
 
   begin
 
   begin
 
+
   
 
     IsInvalidSize := Length(FUnformatted) <> 14;
 
     IsInvalidSize := Length(FUnformatted) <> 14;
 
     IsBlacklisted := AnsiIndexStr(FUnformatted, BLACKLIST) >= 0;
 
     IsBlacklisted := AnsiIndexStr(FUnformatted, BLACKLIST) >= 0;
 +
   
 
     if IsInvalidSize or IsBlacklisted then
 
     if IsInvalidSize or IsBlacklisted then
 
     begin
 
     begin
Linha 187: Linha 178:
 
     else  
 
     else  
 
     begin
 
     begin
 
+
 
 
       D1 := 0;
 
       D1 := 0;
 
+
 
 
       for I := 1 to 12 do
 
       for I := 1 to 12 do
 
       begin
 
       begin
 
+
 
 
         if I < 5 then
 
         if I < 5 then
 
           D1 := D1 + (StrToInt(FUnformatted[I]) * (6 - I))
 
           D1 := D1 + (StrToInt(FUnformatted[I]) * (6 - I))
 
         else
 
         else
 
           D1 := D1 + (StrToInt(FUnformatted[I]) * (14 - I));
 
           D1 := D1 + (StrToInt(FUnformatted[I]) * (14 - I));
 
+
 
 
       end;
 
       end;
 
+
 
 
       D1 := 11 - (D1 mod 11);
 
       D1 := 11 - (D1 mod 11);
 
+
 
 
       if D1 >= 10 then
 
       if D1 >= 10 then
 
         D1 := 0;
 
         D1 := 0;
   
+
     
 
       D2:= D1 * 2;
 
       D2:= D1 * 2;
 
        
 
        
 
       for I := 1 to 12 do
 
       for I := 1 to 12 do
 
       begin
 
       begin
 
+
       
 
         if I < 6 then
 
         if I < 6 then
 
           D2 := D2 + (StrToInt(FUnformatted[I]) * (7 - I))
 
           D2 := D2 + (StrToInt(FUnformatted[I]) * (7 - I))
 
         else
 
         else
 
           D2 := D2 + (StrToInt(FUnformatted[I]) * (15 - I));
 
           D2 := D2 + (StrToInt(FUnformatted[I]) * (15 - I));
 
+
         
 
       end;
 
       end;
 
+
     
 
       D2 := 11 - (D2 mod 11);
 
       D2 := 11 - (D2 mod 11);
 
+
     
 
       if D2 >= 10 then D2 :=0;
 
       if D2 >= 10 then D2 :=0;
 
+
     
 
       Result := (IntToStr(D1) + IntToStr(D2)) = Copy(FUnformatted, 13, 2);
 
       Result := (IntToStr(D1) + IntToStr(D2)) = Copy(FUnformatted, 13, 2);
 
+
     
 
     end;
 
     end;
 
+
   
 
   end;
 
   end;
 
+
 
 
   { TCPF }
 
   { TCPF }
 
   class operator TCPF.Implicit(const CPF: string): TCPF;
 
   class operator TCPF.Implicit(const CPF: string): TCPF;
 
   begin
 
   begin
 
 
     Result.FUnformatted := Clear(CPF);
 
     Result.FUnformatted := Clear(CPF);
 
 
   end;
 
   end;
 
+
 
 
   function TCPF.GetFormatted: string;
 
   function TCPF.GetFormatted: string;
 
   begin
 
   begin
 
 
     Result := MaskUtils.FormatMaskText('000.000.000-00;0; ', FUnformatted);
 
     Result := MaskUtils.FormatMaskText('000.000.000-00;0; ', FUnformatted);
 
 
   end;
 
   end;
 
+
 
 
   class operator TCPF.Implicit(const CPF: TCPF): string;
 
   class operator TCPF.Implicit(const CPF: TCPF): string;
 
   begin
 
   begin
 
 
     Result := CPF.FUnformatted;
 
     Result := CPF.FUnformatted;
 
 
   end;
 
   end;
 
+
 
 
   function TCPF.IsValid: Boolean;
 
   function TCPF.IsValid: Boolean;
 
   const
 
   const
Linha 277: Linha 262:
 
     else  
 
     else  
 
     begin
 
     begin
 
+
 
 
       D1 := 0;
 
       D1 := 0;
 
+
 
 
       for I := 1 to 9 do
 
       for I := 1 to 9 do
 
         D1 := D1 + (StrToInt(FUnformatted[I]) * (11 - I));
 
         D1 := D1 + (StrToInt(FUnformatted[I]) * (11 - I));
Linha 286: Linha 271:
 
      
 
      
 
       if D1 >= 10 then
 
       if D1 >= 10 then
 
+
 
 
       D1 := 0;
 
       D1 := 0;
 
      
 
      
Linha 293: Linha 278:
 
       for I := 1 to 9 do
 
       for I := 1 to 9 do
 
         D2 := D2 + (StrToInt(FUnformatted[I]) * (12 - I));
 
         D2 := D2 + (StrToInt(FUnformatted[I]) * (12 - I));
 
+
 
 
       D2 := 11 - (D2 mod 11);
 
       D2 := 11 - (D2 mod 11);
 
      
 
      
 
       if D2 >= 10 then
 
       if D2 >= 10 then
 
         D2 :=0;
 
         D2 :=0;
 
+
 
 
       Result := (IntToStr(D1) + IntToStr(D2)) = Copy(FUnformatted, 10, 2);
 
       Result := (IntToStr(D1) + IntToStr(D2)) = Copy(FUnformatted, 10, 2);
 
+
 
 
     end;
 
     end;
 
+
 
 
   end;
 
   end;
 
+
 
 
   end.
 
   end.

Edição atual tal como às 10h13min de 7 de janeiro de 2015