Есть ли функция возвращающая...

← →
Andy BitOff © (2007-08-15 16:21) [0]

...названия месяцев в квартале?
Что-то типа:
type TMonthNames = array[0..2] of string; function GetMonthNamesFromQuarter(Quarter: integer): TMonthName;

А может у кого-нибудь есть готовая? Не поделитесь?

Я прекрасно осознаю, что написать это очень просто, но если у кого есть готовая (и не жалко), то чего изобретать велосипед.

← →
Kerk © (2007-08-15 16:23) [1]

За время между созданием ветки и моим постом можно было 10 таких функций написать. Халявчики маст дай.

← →
Andy BitOff © (2007-08-15 16:26) [2]

Гы-ы-ы. Ничего не халявщики. За время между моим постом и твоим ответом, я успел поправить два метода.

← →
Вася Правильный (2007-08-15 16:35) [3]

кварталы разные бывают
как и годы
финансовые, календарные, учебные и т.п.

← →
Andy BitOff © (2007-08-15 16:38) [4]

Вася, нельзя быть уж таким правильным ;)

← →
Вася Правильный (2007-08-15 17:06) [5]

> я успел поправить два метода.

полученных нахаляву в другой ветке? ))

← →
Andy BitOff © (2007-08-15 17:37) [6]

> Вася Правильный (15.08.07 17:06) [5]
> полученных нахаляву в другой ветке? ))

А ты поищи мои вопросы, не стесняйся.

← →
Вася Правильный (2007-08-15 18:06) [7]

и хто там о правильности говорил? ;))
да ты в отпуске был, все в архив уехало
http://delphimaster.net/view/15-1186646028/

нельзя быть таким безчувствоюморным

← →
Andy BitOff © (2007-08-15 18:34) [8]

А ты в архиве поищи, может году в 2004 или даже 2005 и найдешь какой-нибудь тематический ;)
Я редко обращаюсь за помощью, хватает RTFM ;) и инета.

← →
Andy BitOff © (2007-08-15 19:33) [9]

Ну вот и добрались руки и до этой функции. Раз никто не поделился, пришлось писать самому =) Блин, потерял целых 5 минут пока месяцы нвбивал. Получилось следующее:
type TMonthName = array[0..2] of string; const MonthNames: array[1..4] of TMonthName = (("Январь", "Февраль", "Март"), ("Апрель", "Май", "Июнь"), ("Июль", "Август", "Сентябрь"), ("Октябрь", "Ноябрь", "Декабрь")); function GetMonthNamesFromQuarter(Quarter: integer): TMonthName; begin Result := MonthNames[Quarter]; end;
Столько времени потерял. Мог бы пару методов отладить ;)

← →
Anatoly Podgoretsky © (2007-08-15 21:22) [10]

> Andy BitOff (15.08.2007 16:26:02) [2]

Нафиг ты правил, искать надо было.

← →
Вася Правильный (2007-08-15 22:07) [11]

> array[0..2]
> array[1..4]

моя не понимать таких куролесов
почему не [32..34]?

> Anatoly Podgoretsky © (15.08.07 21:22) [10]

Не понял шутки юмора.

> Вася Правильный (15.08.07 22:07) [11]

А что тебя, Правильный, не устраивает?

Код в [9] ошибочный

> Zeqfreed © (15.08.07 23:38) [13]
> Наверное, непоследовательность.

Ну, если только это, то Вася может не волноваться ;) Это же не вся программа =) Если так написано, то значит так нужно. А если бы мне надо было бы покрасоваться, то я бы и оформил, что бы правильные не пристовали. А так просто скопипастил и всё, абсолютно не думая о возможных придирках.
Вы еще скажите, что нету проверки на возможность выхода за пределы массива или, что для Quarter достаточно байта (ради экономии памяти).

← →
Вася Правильный (2007-08-16 11:00) [16]

> для Quarter достаточно байта (ради экономии памяти).

байт без толку, а вот const к нему не помешал бы

Есть ли функция возвращающая... Найти похожие ветки