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
My bad, first I needed to call FormatSettings
, and then I can use in DecimalSeparator
in Delphi XE6,
FormatSettings.DecimalSeparator
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;
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With