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

发布时间：2020-12-15 04:05:47 所属栏目：大数据来源：网络整理

导读：我正在使用标准的Delphi常量DayMonday等,我想将它们转换为本地化的字符串(例如“Lundi”).是否有简单的RTL或VCL调用？解决方法您可以通过以下方式获得不同的区域设置 var fs : TFormatSettings; x : string;begin GetLocaleFormatSettings(GetThreadlocale

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

解决方法

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

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.

您甚至可以自己更改格式设置以创建非常精美的结果.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!