Выгрузить различные из поля коллекции

Владимир Тюрюков 30 5

1С

выгружает в массив поле коллекции без дублей

Функция ВыгрузитьРазличные(Коллекция,ИмяПоля)
	
	Результат = Новый Массив;
	Для каждого ТекущийЭлемент Из Коллекция Цикл
		ТекущееЗначение = ТекущийЭлемент[ИмяПоля];
		Если Результат.Найти(ТекущееЗначение) = Неопределено Тогда
			Результат.Добавить(ТекущееЗначение);
		КонецЕсли;
	КонецЦикла; 
	
	Возврат Результат;
КонецФункции

Функция ВыгрузитьРазличные(Коллекция,ИмяПоля)
	
	Результат = Новый Массив;
	Для каждого ТекущийЭлемент Из Коллекция Цикл
		ТекущееЗначение = ТекущийЭлемент[ИмяПоля];
		Если Результат.Найти(ТекущееЗначение) = Неопределено Тогда
			Результат.Добавить(ТекущееЗначение);
		КонецЕсли;
	КонецЦикла; 
	
	Возврат Результат;
КонецФункции