Pascal: Delphi & Free Pascal

Introdução

A portabilidade de código entre Windows e Linux exige atenção especial à forma como o sistema operacional trata as variáveis regionais. O Lazarus, de forma nativa, tenta herdar as configurações de localidade (Locale) do sistema, mas essa herança pode resultar em erros inesperados, como falhas de parsing ou exibições de data em formatos não previstos, especialmente em ambientes Linux com distribuições variadas.

Neste guia, aprenderemos como fixar programaticamente o formato de data e moeda para garantir consistência visual e lógica, independentemente da configuração do usuário.

Gerenciamento do Formato de Data em Aplicações Lazarus

O Problema da Localização Automática

Ao utilizar funções como DateToStr, o programa consulta as configurações do sistema. No Windows, o ambiente costuma ser padronizado para o português do Brasil. No Linux, entretanto, ambientes como o GNOME (versão 41 em diante) podem tratar a localização de forma diferente, alterando separadores e nomes de meses, o que pode causar erros em operações de string.

Solução: Definindo DefaultFormatSettings

Uma forma definitiva de resolver este problema é forçar as instruções de formatação na seção initialization da sua unit principal. Isso garante que, assim que o programa for carregado na memória, os padrões brasileiros sejam aplicados.

initialization
  DefaultFormatSettings.DateSeparator := '/';
  DefaultFormatSettings.ShortDateFormat := 'DD/MM/YYYY';
  DefaultFormatSettings.LongDateFormat := 'dd" "mmmm" "yyyy';
  DefaultFormatSettings.CurrencyString := 'R$';
  DefaultFormatSettings.DecimalSeparator := ',';

  // Nome dos meses abreviados
  DefaultFormatSettings.ShortMonthNames[1] := 'Jan';
  DefaultFormatSettings.ShortMonthNames[2] := 'Fev';
  DefaultFormatSettings.ShortMonthNames[3] := 'Mar';
  DefaultFormatSettings.ShortMonthNames[4] := 'Abr';
  DefaultFormatSettings.ShortMonthNames[5] := 'Mai';
  DefaultFormatSettings.ShortMonthNames[6] := 'Jun';
  DefaultFormatSettings.ShortMonthNames[7] := 'Jul';
  DefaultFormatSettings.ShortMonthNames[8] := 'Ago';
  DefaultFormatSettings.ShortMonthNames[9] := 'Set';
  DefaultFormatSettings.ShortMonthNames[10] := 'Out';
  DefaultFormatSettings.ShortMonthNames[11] := 'Nov';
  DefaultFormatSettings.ShortMonthNames[12] := 'Dez';

  // Nome dos dias da semana
  DefaultFormatSettings.LongDayNames[1] := 'Domingo';
  DefaultFormatSettings.LongDayNames[2] := 'Segunda';
  DefaultFormatSettings.LongDayNames[3] := 'Terça';
  DefaultFormatSettings.LongDayNames[4] := 'Quarta';
  DefaultFormatSettings.LongDaySettings[5] := 'Quinta';
  DefaultFormatSettings.LongDayNames[6] := 'Sexta';
  DefaultFormatSettings.LongDayNames[7] := 'Sábado';

Boas Práticas e Internacionalização

Se o seu software for destinado ao mercado global, a técnica acima deve ser adaptada. Recomendo criar um formulário de configurações ou carregar estas variáveis de um arquivo .ini ou .json baseado na preferência do usuário ou no país detectado.

Em ambientes Linux, quando o software é distribuído via terminal, é importante garantir que o binário tenha as permissões corretas para ler arquivos de configuração localizados na mesma pasta:

chmod +x meu_programa
./meu_programa