Formatando Valores

�� Nesse artigo vou explicar uma coisa simples por�m de grande utilidade quando temos que montar arquivos texto, como no padr�o CNAB e entre outros.

�� Em alguns padr�es temos um tamanho entre colunas que devemos respeitar e que n�o podemos simplesmente enviar o valor no tamanho original, temos que enviar o valor no tamanho do campo como exigido pelo manual, em fim, veremos na pr�tica como criar uma classe para fazer essa formataç�o, e poder usar essa classe em outros forms.

Crie um novo Projeto (File/New/VCL Forms Application � Delphi)

Coloque no Form:

�� 3 Edits e nomeie como: EdtValorOriginal, EdtTamanho e EdtResultado.

�� 3 Label e na propriedade Caption de cada um coloque: Valor Original, Tamanho e Valor Formatado.

�� 2 Button e nomeie como BtnFormatEsq e o Caption Formatar � Esquerda e� BtnFormatDir e o Caption Formatar � Direita.

�

Organize como abaixo:

Crie uma pasta e salve o Projeto com o nome que quiser.

Adicione uma Unit ao projeto e salve com o nome UFormatacao (File/New/Unit-Delphi)

Codifique a Unit Formatacao como abaixo:


unit UFormatacao;

interface

     function ZerosEsquerda(Texto:String ; Quant:Integer): String;
     function ZerosDireita(Texto:String ; Quant:Integer): String;

implementation

//funç�o que ir� formatar com zeros a esquerda.

function ZerosEsquerda(Texto:String ; Quant:Integer): String;
var
  I, Tamanho : Integer;
  Auxiliar: string;
begin
  Auxiliar := '';
  Tamanho := Length(Texto);
    for I := Tamanho to (Quant - 1) do
   Auxiliar := Auxiliar +'0';
   Result := Auxiliar + Texto;
end;

//funç�o que ir� formatar com zeros a direita.


function ZerosDireita(Texto:String ; Quant:Integer): String;
var
   I, Tamanho : Integer;
   Auxiliar: string;
begin
  Auxiliar := '';
  Tamanho := Length(Texto);
    for I := Tamanho to (Quant - 1) do
    Auxiliar := Auxiliar +'0';
  Result := Texto + Auxiliar;
end;

end.

Volte ao Formul�rio Principal e d� uses na Unit UFormatacao. (Alt+F11).

Implemente os seguintes c�digos nos bot�es:

procedure TFrmFormatar.BtnFormatEsqClick(Sender: TObject); begin EdtResultado.Text := ZerosEsquerda(EdtValorOriginal.Text, StrToInt(EdtTamanho.Text)); end; procedure TFrmFormatar.BtnFormatDirClick(Sender: TObject); begin EdtResultado.Text := ZerosDireita(EdtValorOriginal.Text, StrToInt(EdtTamanho.Text)); end;

Com esse m�todo voc� pode enviar o texto e a quantidade de caracteres a ser formatada, e utilizar para diversas formataç�es enviando o texto e a quantidade.

Compile o projeto e veja o resultado

At� a pr�xima.

Marco A. S. Carvalho

Formatando Valores

Nesse artigo vou explicar uma coisa simples porém de grande utilidade quando temos que montar arquivos texto, como no padrão CNAB e entre outros.

Artigos relacionados