1С 8.x : Функция создает КОПИЮ переданного Массива, Структуры или Соответствия

 

// Создает копию переданного массива, структуры или соответствия

//

// Параметры:

//  КоллекцияИсходная: тип Массив, Структура, Соответствие - исходная коллекция

// Возвращаемое значение:

//  КоллекцияКопия:  тип Массив, Структура, Соответствие - копия исходной коллекции

//

Функция СкопироватьУниверсальнуюКоллекцию(КоллекцияИсходная) Экспорт

	

	Если ТипЗнч(КоллекцияИсходная)=Тип("Массив") Тогда

		

		КоллекцияКопия=Новый Массив;

		

		Для Каждого Элемент Из КоллекцияИсходная Цикл

			

			КоллекцияКопия.Добавить(Элемент);

			

		КонецЦикла;

		

		Возврат КоллекцияКопия;

		

	ИначеЕсли ТипЗнч(КоллекцияИсходная)=Тип("Структура") Тогда

		

		КоллекцияКопия=Новый Структура;

		

		Для Каждого Элемент Из КоллекцияИсходная Цикл

			

			КоллекцияКопия.Вставить(Элемент.Ключ,Элемент.Значение);

			

		КонецЦикла;

		

		Возврат КоллекцияКопия; 

		

	ИначеЕсли ТипЗнч(КоллекцияИсходная)=Тип("Соответствие") Тогда

		

		КоллекцияКопия=Новый Соответствие;

		

		Для Каждого Элемент Из КоллекцияИсходная Цикл

			

			КоллекцияКопия.Вставить(Элемент.Ключ,Элемент.Значение);

			

		КонецЦикла;

		

		Возврат КоллекцияКопия;

		

	Иначе

		

		Сообщить("Неверный тип универсальной коллекции для копирования");

		Возврат Неопределено

		

	КонецЕсли;

	

КонецФункции