Delphi dicas

Função que preenche strings com qualquer caracter a esquerda ou a direita.

É só incluir a função em sua biblioteca ou na unit que vc estiver

usando e chama-la passando os parametros corretos.

A função preenche strings com qualquer caracter a esquerda ou direita retornando a string formatada e no tamanho que vc quiser.


(* Função Preenche


Preenche uma string com o caracter informado


Parametros Tipo       Objetivo

wStr1          String     A string a ser preenchida

wStr2          String     O caracter que vai preencher a string

wStr3          String     D = Direita e E = Esquerda

wTama        Integer  O tamanho total da string a ser retornada

Retorno      String     Retorna a string informada preenchida

com o caracter escolhido no tamanho

definido *)


function Preenche(wStr1, wStr2, wStr3: String; wTama: Integer): String;

var v : Integer;

begin


        wStr1 := Trim(wStr1);


        Result := '';

        for v:=1 to wTama-Length(wStr1) do Result := Result + wStr2;


        if wStr3 = 'E' then

        Result := Result + wStr1

        else

        Result := wStr1 + Result;


end;