Modificar Separador e Moeda

Ol� galera, vamos a este artigo que tem como objetivo mostrar como podemos modificar o separador de milhar e tamb�m o formato de moeda.
Estes s�o configurados pelo Windows, no Delphi existem vari�veis que armazenam estas informaç�es, e como sabemos vari�veis podem ter seus valores modificados diferentemente de constantes , sendo assim podemos modificar em nossos projetos o formato de moeda por exemplo de R$ para U$$ ou qualquer outro formato desejado.

Vamos iniciar incluindo algumas procedures na nossa class do formul�rio criado.
Listagem 1: Declaraç�o das procedures


type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure ExibirMoeda;
    procedure ExibirSeparadorMilhar;
  public
    { Public declarations }
  end;

Neste momento vamos implementar as mesmas usando o CTRL + SHIF + C, em cima de uma das declaraç�es.

Agora vamos a implementaç�o das procedures
Listagem 2: Implementaç�o da procedure ExibirMoeda


procedure TForm1.ExibirMoeda;
begin
  ShowMessage('Atual CurrencyString : ' + CurrencyString);
  CurrencyString := 'U$$';
  ShowMessage('Modificado CurrencyString : ' + CurrencyString);
end;

Listagem 3: Implementaç�o da procedure ExibirSeparadorMilhar


procedure TForm1.ExibirSeparadorMilhar;
begin
  ShowMessage('Atual ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
  ThousandSeparator := '-';
  ShowMessage('Modificado ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
end;

Agora para usarmos as procedures vamos fazer de maneira bem simples, coloque um TButton, e no evento onClick do mesmo implemente a chamada de todas as procedures, o problema � que voc� ir� ver diversos ShowMessages, se preferir faça um de cada vez.

Listagem 5: Implementaç�o do evento onClick do TButton


procedure TForm1.Button2Click(Sender: TObject);
begin
     ExibirMoeda;
     ExibirSeparadorMilhar;
end;

Como todos sabem existem diversos formatos de moeda e diversas formas de exibiç�o de valores, muitas vezes fazemos convers�es e mais convers�es para formar um valor monet�rio ou um separador de milhar mudar de �.� para � � evitando erros na passagem de par�metros para o Banco de Dados, com estas vari�veis fica muito mais f�cil trabalhar, pois a qualquer momento basta mudar o formato e pronto tudo j� esta funcionando perfeitamente novamente. Mudou o Servidor Banco de Dados MySQL para Firebird n�o precisa sair varrendo o c�digo fonte procurando convers�es de moedas para tirar o �.� ou salvar a moeda de outro formato pois n�o esta rodando mais no Brasil, e agora foi vendido para uma empresa Norte Americana. Com isso ajuda bastante.

Fico por aqui e at� a pr�xima.

Um abraço
Wesley Y

Modificar separador e moeda

Veja neste artigo que tem como objetivo mostrar como podemos modificar o separador de milhar e também o formato de moeda.

Artigos relacionados