PHSYS - Wiki

A função CompletaStr preenche uma string com um caractere específico até que ela atinja um comprimento determinado, permitindo que o preenchimento seja feito à esquerda ou à direita.

Sintaxe

Procedure DecodeDate(e: TDateTime; var Ano, Mes, Dia: Word);

Parâmetros

Nome	Tipo	Descrição
S	String	A string original que será preenchida.
Tamanho	Integer	O caractere usado para preencher a string. Padrão é um espaço (' ').
Caractere	Char	Variável de saída que receberá o mês.
Lado	Char	Especifica o lado onde o preenchimento será feito: 'E' para esquerda, 'D' para direita.

Exemplos

var
  codigoProduto: String;
begin
  codigoProduto := '12345'; // Código original com 5 caracteres
  codigoProduto := CompletaStr(codigoProduto, 10, '0', 'E'); // 'E' indica que os zeros devem ser adicionados à esquerda
  // O resultado será: '0000012345'
  Informacao(codigoProduto);                                                                 
end.