Перевод номера месяца в символьное представление месяца

← →
_vl_ (2007-05-30 12:42) [0]

А есть ли функция которая возвращает по номеру месяца его название? Или её надо писать самому, что собственно не сложно, но загромождает код программы.

← →
ЮЮ © (2007-05-30 12:49) [1]

Да уж, полтора десятка строк загромоздят её до невозможного.
Тогда храни в отдельном юните.

← →
Плохиш © (2007-05-30 12:52) [2]

ShortMonthNames/LongMonthNames

← →
_vl_ (2007-05-30 12:57) [3]

Спасибо, Плохиш, работает.

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

← →
ЮЮ © (2007-05-30 13:19) [4]

LongMonthNames[5] = "Май"
А в хинте, там где часики запузырены, пишет "мая". Где взять "мая", а то не видать мне самолета?

← →
begin...end © (2007-05-30 13:29) [5]

> ЮЮ © (30.05.07 13:19) [4]

var
A: array [Byte] of Char;
begin
if GetDateFormat(LOCALE_USER_DEFAULT, DATE_LONGDATE, nil, nil, A, sizeof(A)) <> 0 then
ShowMessage(A)
end

еще вариант - для 3 и 8 (март, август) добавить к строке "a", иначе последний символ заменить на "я"

Универсальненько :-)
const SUBLANG_RUSSIAN = $01; LANG_SYSTEM_RUSSIAN = (SUBLANG_RUSSIAN shl 10) or LANG_RUSSIAN; LOCALE_RUSSIAN = (SORT_DEFAULT shl 16) or LANG_SYSTEM_RUSSIAN; ... var wsDate: WideString; ... SetLength(wsDate, 127); GetDateFormatW(LOCALE_RUSSIAN, DATE_LONGDATE, @SystemTime, nil, @wsDate[1], 127); MessageBoxW(0, @wsDate[1], "Date", MB_OK);

> @SystemTime --> nil

Перевод номера месяца в символьное представление месяца Найти похожие ветки