1С 8.3 Дополнить массив значениями из массива
Данные > Примеры кода 1С > 1С 8.3 Массив
Перейти в раздел примеры кода 1С 8.3:
Дополняет массив МассивСтранОсновной значениями из массива МассивСтранДоп в 1С 8.3:
// Параметры:
// МассивСтранОсновной - Массив - массив, в который необходимо добавить значения.
// МассивСтранДоп - Массив - массив значений для заполнения.
// ТолькоУИИД - Булево - если истина, то в массив будут включены только уникальные значения.
//
Процедура ДополнитьМассив(МассивСтранОсновной, МассивСтранДоп, ТолькоУИИД = Ложь) Экспорт
Если ТолькоУИИД Тогда
УИИД = Новый Соответствие;
Для Каждого Значение Из МассивСтранОсновной Цикл
УИИД.Вставить(Значение, Истина);
КонецЦикла;
Для Каждого Значение Из МассивСтранДоп Цикл
Если УИИД[Значение] = Неопределено Тогда
МассивСтранОсновной.Добавить(Значение);
УИИД.Вставить(Значение, Истина);
КонецЕсли;
КонецЦикла;
Иначе
Для Каждого Значение Из МассивСтранДоп Цикл
МассивСтранОсновной.Добавить(Значение);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
// МассивСтранОсновной - Массив - массив, в который необходимо добавить значения.
// МассивСтранДоп - Массив - массив значений для заполнения.
// ТолькоУИИД - Булево - если истина, то в массив будут включены только уникальные значения.
//
Процедура ДополнитьМассив(МассивСтранОсновной, МассивСтранДоп, ТолькоУИИД = Ложь) Экспорт
Если ТолькоУИИД Тогда
УИИД = Новый Соответствие;
Для Каждого Значение Из МассивСтранОсновной Цикл
УИИД.Вставить(Значение, Истина);
КонецЦикла;
Для Каждого Значение Из МассивСтранДоп Цикл
Если УИИД[Значение] = Неопределено Тогда
МассивСтранОсновной.Добавить(Значение);
УИИД.Вставить(Значение, Истина);
КонецЕсли;
КонецЦикла;
Иначе
Для Каждого Значение Из МассивСтранДоп Цикл
МассивСтранОсновной.Добавить(Значение);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник