Como utilizar LPAD e RPAD no Delphi e Lazarus

Quando estamos desenvolvendo aplicações em Delphi / Lazarus, muitas vezes precisamos ajustar o comprimento de uma string, adicionando caracteres à esquerda ou à direita. Isso é especialmente útil para padronizar saídas de relatórios, códigos formatados ou preenchimento de campos de tamanho fixo.

Em bancos de dados SQL, temos funções como LPAD e RPAD para realizar essa tarefa. No entanto, no Delphi / Lazarus, precisamos criar funções personalizadas para obter o mesmo resultado. Vamos ver como fazer isso de forma simples e eficiente!

 

Função LPAD em Delphi e Lazarus

A função LPAD (Left Pad) é usada para preencher uma string à esquerda com um caractere especificado, até que ela alcance o comprimento desejado. Veja como criar essa função em Delphi:

function LPad(const AText: string; ALength: Integer; AChar: Char = '0'): string;
begin
  if Length(AText) >= ALength then
    Result := AText
  else
    Result := StringOfChar(AChar, ALength - Length(AText)) + AText;
end;

 

Como utilizar o LPAD

var
  PaddedText: string;
begin
  PaddedText := LPad('123', 6);  // Resultado: '000123'
  ShowMessage(PaddedText);
end;

Explicação

• AText: A string que deseja preencher.
• ALength: O comprimento final da string após o preenchimento.
• AChar: O caractere utilizado para o preenchimento (padrão: ‘0’).
• A função verifica se o comprimento da string já é suficiente. Caso seja, retorna a string original; caso contrário, adiciona os caracteres de preenchimento à esquerda.

 

Função RPAD em Delphi e Lazarus

A função RPAD (Right Pad) é usada para preencher uma string à direita com um caractere especificado. Veja como criar a função:

function RPad(const AText: string; ALength: Integer; AChar: Char = ' '): string;
begin
  if Length(AText) >= ALength then
    Result := AText
  else
    Result := AText + StringOfChar(AChar, ALength - Length(AText));
end;

 

Como utilizar o RPAD

var
  PaddedText: string;
begin
  PaddedText := RPad('123', 6);  // Resultado: '123   '
  ShowMessage(PaddedText);
end;

Explicação

• A lógica é semelhante à função LPAD, mas o preenchimento é feito à direita da string.
• O caractere de preenchimento padrão é o espaço em branco (‘ ‘).

 

Conclusão

Essas funções são muito úteis para padronizar saídas de texto e garantir que os valores estejam alinhados conforme necessário. Agora você já sabe como implementar e usar as funções LPAD e RPAD no Delphi e Lazarus de maneira prática e eficiente!

Gostou da dica? Deixe seu comentário e compartilhe este post com seus amigos desenvolvedores! 😉

 

 

📚 Obrigado por acompanhar até aqui! Explore outros posts relacionados no blog e continue desenvolvendo suas habilidades. Tem mais conteúdos sobre diversos assuntos te esperando! 👩‍💻 🔍✨

Até o próximo post. Valeu! 👋📖

 

 

#Delphi #Lazarus #Programacao #Desenvolvimento #DicasDeDev

#LPAD #RPAD #DelphiTips #DevLife #GiovaniDaCruz #PascalModerno

#GiovaniDaCruz