TADVDelphi

O tipo record em pascal pode conter em sua estrutura functions e procedures desde o Delphi 2006 . O TADVDelphi é um Framework que cria um tipo de dado mais avançado usando record com procedures e functions para encapsular as tarefas mais comuns com os tipos de dados primitivo como: string, Integer, Double e DateTime.

Como Usar 👍

Um exemplo usando a TADVString:

declare a untTADVString:

uses untTADVString;

var
  stString: TADVString; //declare o tipo TADVString
  stringTeste: string;
begin  
  stString.Text := '73048256000142'; 
  stringTeste := stString.ToCNPJCpf().Text;
end  

E o valor de stringTeste sera um cnpj ou cpf com máscara: '73.048.256/0001-42'

Um exemplo usando a untTADVNumeric:

declare a untTADVNumeric:

uses TADVNumeric;

var
  dbDouble: TADVDouble;//declare o tipo TADVDouble
  dbResultado: Double;
begin

  dbDouble.Value := 50.238569;

  dbResultado := dbDouble.Trunc(2);
end   

E o valor de dbResultado será 50.23'

Um exemplo usando a untTADVDateTime:

declare a untTADVDateTime:

uses untTADVDateTime;

var
  dtDate: TADVDate;
  dtInicial: TDateTime;
  blEsperado: Boolean;
begin
  
  dtInicial := EncodeDate(2016, 2, 24); //quarta feira

  dtDate.Value := dtInicial;
  
  blResultado := dtDate.isFimDeSemana; 

end; 

E o valor de blResultado sera falso

Isso é só um pedaço do que o framework pode fazer. Verifique os testes e o exemplo para mais detalhes.

Contribuição

Você pode contruibuir com esse projeto, basta enviar sua função juntamente com um teste case.