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;
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;
procedure TForm1.ExibirSeparadorMilhar;
begin
ShowMessage('Atual ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
ThousandSeparator := '-';
ShowMessage('Modificado ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
end;
Listagem 5: Implementação do evento onClick do TButton
procedure TForm1.Button2Click(Sender: TObject);
begin
ExibirMoeda;
ExibirSeparadorMilhar;
end;
Fico por aqui e até a próxima.
Um abraço
Wesley Y
