web-dev-qa-db-ja.com

SysUtilsおよびSystem.SysUtilsのDecimalSeparator

Delphi XE6でDecimalSeparator var SysUtils Delphi 7を見つける必要がありますが、System.SysUtilsで見つけようとしましたが、成功しませんでした。誰かがDelphi XE6で彼女を見つける場所を教えてくれますか?

Delphi 7では、SysUtils.pasユニットの618行目にあります。

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

Delphi 7のコンポーネントをXE6に変換するには、この変数が必要です

12
Linces Marques

私の悪い、最初にFormatSettingsを呼び出す必要があり、次にDelphi XE6のDecimalSeparatorで使用できます。

FormatSettings.DecimalSeparator
20
Linces Marques
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;
7
Rod Lima