Скачать: CL | DM;

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

← →
petun   (2006-04-25 13:07) [0]

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

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

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

---

← →
balepa ©   (2006-04-25 13:10) [1]

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

---

← →
petun   (2006-04-25 13:13) [2]

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


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



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

---

← →
balepa ©   (2006-04-25 13:14) [3]

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

---

← →
begin...end ©   (2006-04-25 13:15) [4]

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:16) [5]

> petun   (25.04.06 13:13) [2]


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

---

← →
balepa ©   (2006-04-25 13:17) [6]

> petun   (25.04.06 13:13) [2]


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.035 c