Fórum formatação de campos no firebird 2.5 #492091
14/09/2014
0
grato.
Norbelino
Curtir tópico
+ 0Posts
14/09/2014
Anderson
- Na minha biblioteca de rotinas, criei uma procedure chamada Constantes_Delphi, que é chamada na seção Initialization (é executada no momento em que sua aplicação é iniciada).
- Na procedure Constantes_Delphi também coloquei códigos para que o Delphi não altera-se o que foi feito (não consulta-se novamente o sistema operacional).
- Algumas definições (ex.: ShortDateFormat=LongDateFormat) são critérios de escolha pessoal do desenvolvedor considerando o perfil da aplicação e dos usuários.
{ Define as constantes internas do Delphi - Chamar na Initialization }
procedure Constantes_Delphi;
begin
{ Desabilita as atualizações de formato, que ocorrem quando o usuário altera
as propriedades do Windows e/ou são feitas por outro software/componente de terceiro }
Application.UpdateFormatSettings:=False;
{ Impede a mudança de formato de unidades metricas devido a alterações no windows
ou por outro software/componente de terceiro }
Application.UpdateMetricSettings:=False;
{ Valores defaults para o Delphi - Referência SysUtils.GetFormatSettings }
FormatSettings.ThousandSeparator:='.';
FormatSettings.DecimalSeparator:=',';
FormatSettings.CurrencyDecimals:=4;
FormatSettings.DateSeparator:='/';
FormatSettings.ShortDateFormat:='DD/MM/YYYY'; // Obrigar a mostrar 4 dígitos no ano - 'DD/MM/YY';
FormatSettings.LongDateFormat:='DD/MM/YYYY';
FormatSettings.TimeSeparator:=':';
FormatSettings.ShortTimeFormat:='HH:MM';
FormatSettings.LongTimeFormat:='HH:MM:SS';
FormatSettings.ShortMonthNames[01]:='Jan';
FormatSettings.ShortMonthNames[02]:='Fev';
FormatSettings.ShortMonthNames[03]:='Mar';
FormatSettings.ShortMonthNames[04]:='Abr';
FormatSettings.ShortMonthNames[05]:='Mai';
FormatSettings.ShortMonthNames[06]:='Jun';
FormatSettings.ShortMonthNames[07]:='Jul';
FormatSettings.ShortMonthNames[08]:='Ago';
FormatSettings.ShortMonthNames[09]:='Set';
FormatSettings.ShortMonthNames[10]:='Out';
FormatSettings.ShortMonthNames[11]:='Nov';
FormatSettings.ShortMonthNames[12]:='Dez';
FormatSettings.LongMonthNames[01]:='Janeiro';
FormatSettings.LongMonthNames[02]:='Fevereiro';
FormatSettings.LongMonthNames[03]:='Março';
FormatSettings.LongMonthNames[04]:='Abril';
FormatSettings.LongMonthNames[05]:='Maio';
FormatSettings.LongMonthNames[06]:='Junho';
FormatSettings.LongMonthNames[07]:='Julho';
FormatSettings.LongMonthNames[08]:='Agosto';
FormatSettings.LongMonthNames[09]:='Setembro';
FormatSettings.LongMonthNames[10]:='Outubro';
FormatSettings.LongMonthNames[11]:='Novembro';
FormatSettings.LongMonthNames[12]:='Dezembro';
FormatSettings.ShortDayNames[1]:='Dom';
FormatSettings.ShortDayNames[2]:='Seg';
FormatSettings.ShortDayNames[3]:='Ter';
FormatSettings.ShortDayNames[4]:='Qua';
FormatSettings.ShortDayNames[5]:='Qui';
FormatSettings.ShortDayNames[6]:='Sex';
FormatSettings.ShortDayNames[7]:='Sáb';
FormatSettings.LongDayNames[1]:='Domingo';
FormatSettings.LongDayNames[2]:='Segunda';
FormatSettings.LongDayNames[3]:='Terça';
FormatSettings.LongDayNames[4]:='Quarta';
FormatSettings.LongDayNames[5]:='Quinta';
FormatSettings.LongDayNames[6]:='Sexta';
FormatSettings.LongDayNames[7]:='Sábado';
end;
Após a inclusão desta rotina, acabaram-se meus problemas com as instruções SQL. Com certeza há maneiras mais elegantes de resolver este tipo de problema, mas na época resolvi assim (já estava com a água pelo nariz e de saco cheio com o esta funcionando e de repente deixa de funcionar).
Att.
Anderson.
Gostei + 0
14/09/2014
Norbelino
grato.
Gostei + 0
14/09/2014
Norbelino
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)