Object Pascal TFormatSettings

Object Pascal TFormatSettings

Format Settings

uses
 System.SysUtils
 Winapi.Windows

 formatSettings : TFormatSettings;
  {$REGION 'SET FORMATSETINGS'}
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings);
  formatSettings.ThousandSeparator := ',';
  formatSettings.DecimalSeparator  := '.';
  formatSettings.DateSeparator     := '.';
  formatSettings.TimeSeparator     := ':';
  formatSettings.ShortDateFormat   := 'dd.mm.yyyy';
  formatSettings.ShortTimeFormat   := 'hh:mm';
  formatSettings.LongTimeFormat    := 'hh:mm';
  {$ENDREGION}