Советы по Delphi




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


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

Function GetMonthNumber ( Month : String ) : Integer;BeginFor Result := 1 to 12 doIf Month = LongMonthNames[Result] Then Exit;Result := 0;End;

[000646]




Содержание  Назад  Вперед