Советы по Delphi

         

Получение номера месяца по его имени


...через цикл обхода элементов глобального массива LongMonthNames:

    Function GetMonthNumber ( Month : String ) : Integer; Begin For Result := 1 to 12 do If Month = LongMonthNames[Result] Then Exit; Result := 0; End;

[000646]



Содержание раздела