скрыть скрыть
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
...через цикл обхода элементов глобального массива LongMonthNames:
Function GetMonthNumber(Month: String): Integer; Begin For Result := 1 to 12 do If Month = LongMonthNames[Result] Then Exit; Result := 0; End;