DecimalSeparator dans SysUtils et System.SysUtils

Question

J'ai besoin de trouver DecimalSeparator var SysUtils Delphi 7, dans Delphi XE6, j'ai essayé de trouver dans System.SysUtils, mais sans succès. Quelqu'un peut me dire où la trouver dans Delphi XE6?

Dans Delphi 7, il est situé dans l'unité SysUtils.pas, à la ligne 618:

var 
   CurrencyString: string; 
   CurrencyFormat: Byte; 
   NegCurrFormat: Byte; 
   ThousandSeparator: Char; 
   DecimalSeparator: Char;

J'ai besoin de cette variable pour convertir un composant de Delphi 7 en XE6

Answer 1

Mon mauvais, j'ai d'abord dû appeler FormatSettings, puis je peux utiliser dans DecimalSeparator dans Delphi XE6,

FormatSettings.DecimalSeparator

Answer 2

procedure ConfigureBrazilRegion;
var
  FormatBr: TFormatSettings;
begin
  // Create new setting and configure for the brazillian format
  FormatBr                     := TFormatSettings.Create;
  FormatBr.DecimalSeparator    := ',';
  FormatBr.ThousandSeparator   := '.';
  FormatBr.CurrencyDecimals    := 2;
  FormatBr.DateSeparator       := '/';
  FormatBr.ShortDateFormat     := 'dd/mm/yyyy';
  FormatBr.LongDateFormat      := 'dd/mm/yyyy';
  FormatBr.TimeSeparator       := ':';
  FormatBr.TimeAMString        := 'AM';
  FormatBr.TimePMString        := 'PM';
  FormatBr.ShortTimeFormat     := 'hh:nn';
  FormatBr.LongTimeFormat      := 'hh:nn:ss';
  FormatBr.CurrencyString      := 'R$';

  // Assign the App region settings to the newly created format
  System.SysUtils.FormatSettings := WFormatBr;
end;