當默認語言爲非英語時，如何將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。