как использовать TDateCalendar в качестве английского языка (титры дней), если языком по умолчанию является не английский?

Question

в настройках нашего компьютера региональный язык - корейский, моя проблема в том, что когда я использую FormatDateTime ('MMM DD YYYY'), он возвращает дату на корейском языке (месяц)и даже дата-календарь не английский.Любое предложение?

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 может использоваться практически во всех форматахfunctions.

Вы можете получить настройки формата для данной локали с помощью (в Windows).Или вы можете создать его самостоятельно.

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

Все в SysUtils.

И вы можете найти LCID на этом сайте .