CODEWITHSUNDEEP
delphicomponentsvcl
Linces Marques
Linces Marques

Reputation: 684

DecimalSeparator in SysUtils and System.SysUtils

I need to find DecimalSeparator var SysUtils Delphi 7, in Delphi XE6 i tried to find in System.SysUtils, but without success. Someone can tell me where to find her in Delphi XE6?

In Delphi 7 it is located in SysUtils.pas unit, in line 618: 

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

I need this variable to convert a component of Delphi 7 to XE6

Upvotes: 14

Views: 60695

Answers (2)

Linces Marques
Linces Marques

Reputation: 684

My bad, first I needed to call FormatSettings, and then I can use in DecimalSeparator in Delphi XE6,

FormatSettings.DecimalSeparator

Upvotes: 27

Rod Lima
Rod Lima

Reputation: 1549

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;

Upvotes: 7

Related Questions