Aplicações diferentes requerem valores específicos para se adequarem aos paradigmas estruturais. Por exemplo, os números do Seguro Social sempre têm nove dígitos. Alguns relatórios exigem que os números sejam exibidos com uma quantidade fixa de caracteres. Os números de sequência, por exemplo, geralmente começam com 1 e aumentam sem fim, então são exibidos com zeros à esquerda para apresentar um apelo visual.
Como um Programador Delphi, sua abordagem para adicionar um número com zeros à esquerda depende do caso de uso específico desse valor. Você pode simplesmente optar por preencher um valor de exibição ou pode converter um número em uma sequência para armazenamento em um banco de dados.
Método de preenchimento de exibição
Use uma função direta para alterar a forma como seu número é exibido. Usar formato para fazer a conversão, fornecendo um valor para comprimento (o comprimento total da saída final) e o número que você deseja preencher:
str: = Formato ('%. * d, [comprimento, número])
Para preencher o número 7 com dois zeros à esquerda, insira esses valores no código:
str: = Formato ('%. * d, [3, 7]);
O resultado é 007 com o valor retornado como uma sequência.
Método Converter em String
Use uma função de preenchimento para acrescentar zeros à esquerda (ou qualquer outro caractere) sempre que precisar no seu script. Para converter valores que já são números inteiros, use:
função LeftPad (valor: inteiro; comprimento: inteiro = 8; pad: char = '0'): string; sobrecarga;
início
resultado: = RightStr (StringOfChar (pad, comprimento) + IntToStr (valor), comprimento);
fim;
Se o valor a ser convertido já for uma sequência, use:
função LeftPad (valor: string; comprimento: inteiro = 8; pad: char = '0'): string; sobrecarga;
início
resultado: = RightStr (StringOfChar (pad, comprimento) + valor, comprimento);
fim;
Essa abordagem trabalha com Delphi 6 e edições posteriores. Esses dois blocos de código são padrão para um caractere de preenchimento de 0 com sete caracteres retornados; esses valores podem ser modificados para atender às suas necessidades.
Quando o LeftPad é chamado, ele retorna valores de acordo com o paradigma especificado. Por exemplo, se você definir um valor inteiro como 1234, chamando o LeftPad:
i: = 1234;
r: = Painel esquerdo (i);
retornará um valor de sequência de 0001234.