1. 1C / Говнокод #12766

    −124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    КоличествоОбъектов_ = 0;
	
	Для Каждого СтрокаТаблицы Из Объекты Цикл
		Если СтрокаТаблицы.Объект = Элемент.Значение Тогда
			КоличествоОбъектов_ = КоличествоОбъектов_ + 1;
		КонецЕсли;
	КонецЦикла;

	Если КоличествоОбъектов_ > 1 Тогда
		Элемент.Значение = Справочники.ОбъектыСтрахования.ПустаяСсылка();
		Предупреждение("Выбранный объект уже присутствует в списке");
		Возврат;
	КонецЕсли;

    Нашел такое в конфе, которую поддерживаю.
    Программер накнопал алгоритм, чтобы исключить попадание одного и того же объекта в таблицу.
    Вначале был ступор, потом дошло.

    Запостил: Ivon, 18 Марта 2013

    Комментарии (12) RSS

    • ava eth0 18.03.2013 18:18 # +1

      Обычный дебил, который не может пользоваться стандартными коллекциями (сказать правду - препоганейшими). Ну и по мелочи, типа отсутствия знания типовых алгоритмов.
      Ответить

      • ava someone 19.03.2013 10:33 # 0

        А в 1С есть стандартный set?
        Ответить

        • ava Ivon 19.03.2013 10:44 # 0

          А стандартный из какого языка?
          Вообще этот алгоритм умещается в гораздо меньшем количестве строк примерно вот так:
          Если Объекты.НайтиСтроки(Новый Структура("Объект", Элемент.Значение)).Количество() > 1 Тогда
		Элемент.Значение = Справочники.ОбъектыСтрахования.ПустаяСсылка();
		Предупреждение("Выбранный объект уже присутствует в списке");
		Возврат;
	КонецЕсли;
          Ответить

          • ava roman-kashitsyn 19.03.2013 10:50 # +3

            > А стандартный из какого языка?
            Стандартный в математическом смысле

            > Справочники.ОбъектыСтрахования.ПустаяСсы лка()
            Типизированный NULL 0_O
            Ответить

            • ava eth0 19.03.2013 17:12 # +1

              Типизированное пустое значение заданного вида.
              Емнип, 
              А = Неопределено;
А.Наименование = "Тест";

              упадёт (возможно даже с неотловимой ошибкой), а
              А = Справочники.Ололо.ПустаяСсылка();
А.Наименование = "Тест";

              - нет, потому что в данном случае А - валидный объект, только пустой.
              Ответить

              • ava roman-kashitsyn 19.03.2013 17:20 # 0

                А, вон оно что. Default.
                Остаётся только гадать, почему ПустаяСсылка(), а не ЗначениеПоУмолчанию().
                Ответить

                • ava guest 22.03.2013 11:02 # +2

                  потому что это пустая ссылка, а не значение по умолчанию
                  Ответить

              • ava guest 22.03.2013 11:01 # 0

                тоже будет ошибка
                Ответить

                • ava eth0 22.03.2013 16:14 # 0

                  Вполне возможно, я же не настоящий сварщик. Но чтение из него пройдёт нормально.
                  Ответить

          • ava mrbus 22.05.2013 17:49 # 0

            А нахрена тут НайтиСтроки, если достаточно Найти. Незачем искать все.
            Ответить

            • ava guest 23.08.2013 15:08 # −3

              А затем, что "Найти()" вернет только одну (первую попавшуюся) строку, а задача - проверка на наличие дублей.

              Не позорь профессию, она из-за таких, как ты, имеет дурную репутацию.
              Ответить

              • ava mrbus 23.08.2013 18:39 # +2

                Согласен, проморгал момент, там проверяется на > 1, а не на > 0.
                А вот хамить не надо. Я программировать начинал еще с советских программируемых калькуляторов и прошел всё от ассемблера до мобильных приложений. Ну бывает, ошибся.
                Ответить

    Добавить комментарий