Função PadRight ACBRUtil

[icozeira]

Percebí na Unit ACBrUtil na linha 760 onde está a seguinte funcão:

function PadRight(const AString : String; const nLen : Integer;
   const Caracter : Char) : String ;
var
  Tam: Integer;
begin
  Tam := Length(AString);
  if Tam < nLen then
    Result := AString + StringOfChar(Caracter, (nLen - Tam))
  else
    Result := LeftStr(AString, nLen);
end ;

Como trata-se de PadRight o ultimo result não seria:
Result := RightStr(AString, nLen); 

Obs- Não fiz a correção, porque não sei onde pode comprometer as demais funcionalidades do componente. Só peço aos moderadores, quando
possível dar uma conferida.

Postei no Boleto, porque é bastante utilizado pelo componente nas Units do ACBrBoleto.

 

 

Editado 29 Novembro, 2015 por icozeira

[Juliana Tamizou]

Bom dia.

Observe que os caracteres para preencher as posições restantes até o tamanho desejado são adicionadas ao final da string passada ao comando, logo está correto o uso do leftStr(), uma vez que se fosse aplicada a sua sugestão haveria perda de informação.

Att.

[icozeira]

Entendí Juliana.

Obrigado