当默认语言为非英语时，如何将TDateCalendar用作英语（Days Captions）？

Question

我们的电脑设置有区域语言是韩语，我的问题是当我使用FormatDateTime（'MMM DD YYYY'）它返回韩语（月）的日期。甚至datecalendar是非英文的。任何建议？

Answer 1

的FormatDateTime有一个重载的变体，您可以使用覆盖格式设置：

function FormatDateTime(const Format: string; DateTime: TDateTime; 
    const FormatSettings: TFormatSettings): string; overload; 

凡TFormatSettings被定义为：

type 
    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; 

TFormatSettings可以通过几乎所有格式功能一起使用。

您可以使用（在Windows上）获取给定语言环境的格式设置。或者你可以自己创建它。

procedure GetLocaleFormatSettings(LCID: Integer; 
    var FormatSettings: TFormatSettings); 

一切都在SysUtils中。

你可以在this site找到LCID。