Buscar por:

Função para Completar uma String

Código

/*

Esta função tem como objetivo completar uma String com o caracter desejado, até o tamanho desejado, tanto para esquerda, direita ou centralizada.

Logicamente que eu poderia simplificar bastante sua codificação, porém para facilitar o entendimento da mesma, utilizei esta metodologia. É muito util para impressões diretamente na porta, formatação para geração de arquivos "txt", etc.

Espero que ajude.

*/

function completastr(Lado,OQue,StrOriginal : String ; AteQuanto : Integer): String;

var tam : Integer;

    Pronta,lc : String;

begin

     lc := 'd';

     tam := Length(StrOriginal);

     pronta := StrOriginal;

     if lado = 'd' then

       begin

         while tam < AteQuanto do

           begin

             pronta := pronta + OQue;

             tam := tam + 1;

           end;

       end

     else if lado = 'e' then

       begin

         while tam < AteQuanto do

           begin

             pronta := OQue + pronta;

             tam := tam + 1;

           end;

       end

     else

       begin

         while tam < AteQuanto do

           begin

             if lc = 'd' then

               begin

                 lc := 'e';

                 pronta := pronta + OQue;

                 tam := tam + 1;

               end

             else

               begin

                 lc := 'd';

                 pronta := OQue + pronta;

                 tam := tam + 1;

               end;

           end;

       end;

     Result := Pronta;

end;

/*

Exemplos:

A) function completastr('d','0','Texto', 10).

Retorno : 'Texto00000'

B) function completastr('e','0','Texto', 10).

Retorno : '00000Texto'

C) function completastr('c','-','Texto', 11).

Retorno : '---Texto---'

Espero que ajude !

"Que Deus me de a serenidade para aceitar as coisas que não posso mudar,

coragem para mudar as que posso e

sabedoria para saber diferenciá-las."

Abraham Lincoln

*/