VPF::Получить английское название месяца

Sponger

Дата 1.6.2006, 06:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 165
Регистрация: 14.2.2006

Репутация: нет
Всего: нет

Как получить английское название месяца при любых национальных установках даты.

Yanis

Дата 1.6.2006, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

А причём здесь региональные настройки системы? Как ты сделаешь так и будет отображаться....

Код


const
  months: array[1..12] of string = ('January', 'February', 'March', 'April',
                                    'May', 'June', 'July', 'August',
                                    'September', 'October', 'November', 'December');

begin
  ShowMessage(months[MonthOfTheYear(Now)]);
end.

--------------------

*щёлк*

Sponger

Дата 1.6.2006, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 165
Регистрация: 14.2.2006

Репутация: нет
Всего: нет

У меня так и сделано, я хотел без создания массива, а брать название месяца из системы, но там как раз локализовано под рег установки.

делать типа Formatdatetime('mmmm yyyy', now)? но чтобы было английское название месяца.

Yanis

Дата 1.6.2006, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

А зачем по твоему нужна локализация? Чем тебе массив не нравится?

--------------------

*щёлк*

ShadeSt

Дата 1.6.2006, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Можно посмотреть на код FormatDateTime, порезать немного и сделать что нибудь такое:

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  MY_LANG    = (SUBLANG_DEFAULT shl 10) or LANG_DUTCH;
  MY_LOCALE   = (SORT_DEFAULT shl 16) or MY_LANG;
var
  sys_t : SYSTEMTIME;
  Buf   : Pchar;
begin
  GetSystemTime(sys_t);
  getmem(Buf, 256);
//  sys_t.wMonth := 1;
  GetDateFormat( MY_LOCALE, 0, @sys_t, pchar('MMMM'), Buf, 256);
  ShowMessage(string(Buf));
  FreeMem(Buf);
end;

только язык поставить нужный.

Это сообщение отредактировал(а) ShadeSt - 1.6.2006, 14:02

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »