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

← →
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

> petun (25.04.06 13:13) [2]

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

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