| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
 Enviada: Qua Mar 09, 2022 1:09 pm Assunto: [Resolvido] Configurar TFormatSettings |
 |
|
Boa tarde!
Pessoal eu tenho um código muito antigo e vou migrar para a versão mais recente do Delphi.
| Código: | public
aFormatSettings: TFormatSettings;
...
procedure TfrmPrincipal.Formatos;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, aFormatSettings);
with aFormatSettings do
begin
ThousandSeparator := '.';
DecimalSeparator := ',';
DateSeparator := '/';
ShortDateFormat := 'dd/mm/yyyy';
TimeSeparator := ':';
CurrencyString := 'R$';
CurrencyFormat := 0;
NegCurrFormat := 12;
LongDayNames[1] := 'Domingo';
LongDayNames[2] := 'Segunda';
LongDayNames[3] := 'Terça';
LongDayNames[4] := 'Quarta';
LongDayNames[5] := 'Quinta';
LongDayNames[6] := 'Sexta';
LongDayNames[7] := 'Sábado';
end;
end; |
Eu tenho que instanciar a variável "aFormatSettings := TFormatSettings.Create;" e exclui a linha de código: GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, aFormatSettings);. É isso mesmo? Há necessidade de acrescentar o Locale como parâmetro no create?
Abaixo segue o código modificado:
| Código: | procedure TfrmPrincipal.Formatos;
begin
aFormatSettings := TFormatSettings.Create;
with aFormatSettings do
begin
ThousandSeparator := '.';
DecimalSeparator := ',';
DateSeparator := '/';
ShortDateFormat := 'dd/mm/yyyy';
TimeSeparator := ':';
CurrencyString := 'R$';
CurrencyFormat := 0;
NegCurrFormat := 12;
LongDayNames[1] := 'Domingo';
LongDayNames[2] := 'Segunda';
LongDayNames[3] := 'Terça';
LongDayNames[4] := 'Quarta';
LongDayNames[5] := 'Quinta';
LongDayNames[6] := 'Sexta';
LongDayNames[7] := 'Sábado';
end;
end; |
Obrigado!
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Editado pela última vez por pestana em Ter Mar 15, 2022 4:07 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Ter Mar 15, 2022 11:15 am Assunto: |
|
|
Não há necessidade de acrescentar o Locale como parâmetro no create porque ao omitir essa informação se inicializa um registro TFormatSettings com valores padrão atuais fornecidos pelo sistema operacional.
Será necessário preencher apenas se você deseja um Locale específico independente do Sistema Operacional.
Fonte: https://docwiki.embarcadero.com/Libraries/Sydney/en/System.SysUtils.TFormatSettings.Create
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Ter Mar 15, 2022 4:06 pm Assunto: |
|
|
Obrigado natan pela ajuda!
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
