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.

.