Guia Delphi

Modificar separador e moeda

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja neste artigo que tem como objetivo mostrar como podemos modificar o separador de milhar e também o formato de 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
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?