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

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

Названия месяцев [D5, Win95/98]


Марина ©   (2001-12-20 16:29:00) 

Подскажите,пожалуйста,как получить название месяца не в виде "декабря",например,а в виде "декабрь"? Заранее спасибо.


Dimka Maslov   (2001-12-20 18:32:00) [1]

const Months: array [1..12] of string = ("январь", "февраль", ... , "декабрь");

function GetMonthName(N: Integer): string;
begin
if (N=>Low(Months)) and (N<=High(Months)) then Result:=Months[N] else Result:="";

end;


Внук   (2001-12-20 16:35:00) [2]

А стоит ли мучаться? Если можно получить названия месяцев в родительном падеже, то можно составить массив соответствий и все дела.


Наверх

Титульная страница Поиск, карта сайта Написать письмо