Pequenas e úteis funções para o dia-a-dia do desenvolvedor

Estas funções serão bastante úteis quando for necessário a implementação de arquivos textos que exigem complementos com espaços ou caracteres para complementar arquivo texto.
function strAdicionaEsquerda(const S: string; C: Char; Len: Integer): string;
begin
  Result := copy(S, 1, Len);
  while Length(Result) < Len do
    Result := Result + C;
end;

function strAdicionaDireita(const S: string; C: Char; Len: Integer): string;
begin
  Result := copy(S, 1, Len);
  while Length(Result) < Len do
    Result := C + Result;
end;

Boa implementação a todos…