| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

имена месяцев в правильном формате [D7, WinXP]

petun ©   (2006-04-25 13:07:00) 

при использовании функции
formatDateTime('mmmm',now) на выходе получается - апрель.

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

p.s.: не красиво смотрится:  Документ сохранен 12 апрель 2006 г. :)

---

balepa   (2006-04-25 13:17:00) [1]

> petun   (25.04.06 13:13) [2]


Вот это извращенец begin...end ©   (25.04.06 13:15) [4] :)

---

balepa   (2006-04-25 13:16:00) [2]

> petun   (25.04.06 13:13) [2]


Мой код тоже реально работает
Второй ваще рулезззз.

---

begin...end   (2006-04-25 13:15:00) [3]

var
 Text: array [0..50] of Char;
begin
 if GetDateFormat(LOCALE_USER_DEFAULT, DATE_LONGDATE, nil, nil, Text, sizeof(Text)) > 0 then
   ShowMessage(Text)
end

---

balepa   (2006-04-25 13:14:00) [4]

var
 s: String;
begin
 s:= '12 апрель 2006 г.';
 s[pos('ь',s)]:= 'я';
end;

---

petun   (2006-04-25 13:13:00) [5]

м да... по - моему извращение.... вто нашел другой способ:


LongMonthNames[4]:='Апреля';
ShowMessage(FormatDateTime('mmmm',now));



это реально работает...

---

balepa   (2006-04-25 13:10:00) [6]

var
 s: string;
begin
 s:= '12 апрель 2006 г.';
 s[9]:= 'я';
end;

---

Наверх