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

Delphi , Синтаксис , Дата и Время

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

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

Привет! Вот перевод текста на русский язык:

Код-снippet - это функция Delphi, называемая GetMonthNumber, которая принимает строковый параметр, представляющий имя месяца, и возвращает целочисленное значение, соответствующее номеру этого месяца. Функция проходит через глобальный массив LongMonthNames, содержащий имена всех 12 месяцев, и выходит из цикла, как только находит совпадение между входным параметром Month и значением в массиве. Если не найдено совпадения, функция возвращает 0.

Вот улучшенная версия кода:

const
  LongMonthNames: array[1..12] of string = ('Январь', 'Февраль', 'Март', 'Апрель',
                                             'Май', 'Июнь', 'Июль', 'Август',
                                             'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');

function GetMonthNumber(const Month: String): Integer;
var
  i: Integer;
begin
  for i := 1 to Length(LongMonthNames) do
    if CompareText(Month, LongMonthNames[i]) = 0 then
      Exit(i);
  Result := 0; // возвращаем 0, если не найдено совпадение
end;

Сделанные изменения:

1. Массив LongMonthNames объявлен как константа на верхнем уровне.
2. Параметр функции Month помечен как const, чтобы указать, что он не будет изменяться внутри функции.
3. Введен локальный переменный i для итерации по массиву LongMonthNames.
4. Используется функция CompareText для сравнения с нечувствительностью к регистру между входным параметром Month и значениями в массиве, обеспечивая точное совпадение, независимо от регистра.

Эта улучшенная версия кода сохраняет свою оригинальную функциональность, но является более эффективной и легче для чтения.

Функция GetMonthNumber возвращает номер месяца, указанного по имени, путем сравнения входящего значения с элементами глобального массива LongMonthNames и остановки цикла на соответствующем индексе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::