Dica: Preencher string à direita ou à esquerda com caractere

É comum precisarmos formatar uma string para que fique num determinado tamanho, como por exemplo:

• Uma string ‘1’ ficar no formato ‘000001’; ou
• ‘123’ = ‘12300000’; ou
• ‘TEXTO’ ficar no tamanho 10 – ‘TEXTO…..’.

Para isso, basta utilizar as funções abaixo:

function LPad(S: string; Ch: Char; Len: Integer): string;
var   RestLen: Integer;
begin   Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := S + StringOfChar(Ch, RestLen);
end;

function RPad(S: string; Ch: Char; Len: Integer): string;
var   RestLen: Integer;
begin   Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := StringOfChar(Ch, RestLen) + S;
end;

{exemplo de uso}
procedure TForm1.Button1Click(Sender: TObject);
begin   Edit1.Text := RPad(Edit2.Text, '-', 30);
end;

Abraços.

.

Posts Relacionados:

• TDaoIBX – Que tal um ORM Básico? Parte 11
• Design Pattern: Singleton
• Delphi e Google Maps Javascript API V3 – Parte 2
• Delphi: Com ou Sem DAO? Eis a questão!
• Clonando um objeto

Luiz Carlos

Desenvolvedor de software desde 1995. Em 1998, abriu sua própria empresa, a Lukas Sistemas, desde então passou a atender diversas empresas, principalmente autopeças. Apaixonado por Delphi, porém não o impede de flertar com outras linguagens sempre que possível. Mora na cidade de Balsas/MA com sua esposa e dois filhos.