Como Adicionar Zeros à Esquerda de uma String no Delphi

Se você precisa formatar números ou strings adicionando zeros à esquerda para atingir um tamanho fixo, pode utilizar a função StrZero.

Função para Adicionar Zeros

Abaixo está a implementação da função otimizada:

function StrZero(Zeros: string; Quant: integer): string;
var
  Tamanho: integer;
begin
  Tamanho := Length(Zeros);
  if Tamanho < Quant then
    Result := StringOfChar('0', Quant - Tamanho) + Zeros
  else
    Result := Zeros;
end;

Como Funciona?

  1. Calcula o tamanho da string recebida.
  2. Se for menor que o tamanho desejado (Quant), adiciona zeros à esquerda.
  3. Retorna a string formatada.

Exemplo de Uso

procedure TForm1.Button1Click(Sender: TObject);
var
  Resultado: string;
begin
  Resultado := StrZero('123', 6);
  ShowMessage(Resultado); // Saída: 000123
end;

Benefícios da Função

  • Evita loops desnecessários (usa StringOfChar para eficiência).
  • Compatível com Delphi moderno.
  • Útil para formatação de códigos, CPFs, boletos, etc..

Posts Similares