delphi - 如何在 Delphi 中获取本地化的日期名称？

Question

我正在使用标准 Delphi 常量 DayMonday 等，我想将它们转换为本地化字符串(例如“Lundi”)。是否有一个简单的 RTL 或 VCL 调用？

Answer 1

您可以通过以下方式获取不同的区域设置:

var
  fs : TFormatSettings;
  x  : string;
begin
  GetLocaleFormatSettings(GetThreadlocale, fs);
  x:= FormatDateTime('%mmmm', Now, fs);
  // etc..
end;

GetThreadLocale 给出当前的 LCID，但您可以自己使用另一个数字。

TFormatSettings 记录:

TFormatSettings = record
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;
  ThousandSeparator: Char;
  DecimalSeparator: Char;
  CurrencyDecimals: Byte;
  DateSeparator: Char;
  TimeSeparator: Char;
  ListSeparator: Char;
  CurrencyString: string;
  ShortDateFormat: string;
  LongDateFormat: string;
  TimeAMString: string;
  TimePMString: string;
  ShortTimeFormat: string;
  LongTimeFormat: string;
  ShortMonthNames: array[1..12] of string;
  LongMonthNames: array[1..12] of string;
  ShortDayNames: array[1..7] of string;
  LongDayNames: array[1..7] of string;
  TwoDigitYearCenturyWindow: Word;
end;

另请参阅http://www.microsoft.com/globaldev/reference/lcid-all.mspx获取完整列表。

您甚至可以自己更改格式设置以创建真正精美的结果。