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
