Немножко рефакторинга

Author: EvilBeaver

src/core/Классы/Версия.os

@@ -323,7 +323,7 @@
 Процедура СобратьМассивИзКомпонентов(Знач Парсер, Знач МассивКомпонентов, Знач ПрерватьПо)
 
 	Пока Истина Цикл
-		ПрочитатьКомпонент(Парсер, МассивКомпонентов);
+		МассивКомпонентов.Добавить(ПрочитатьКомпонент(Парсер));
 		Если Парсер.Текущий().Значение = ПрерватьПо или Парсер.Текущий().Тип = Парсер.ТипКонецТекста Тогда
 			Прервать;
 		КонецЕсли;
@@ -334,23 +334,23 @@
 
 КонецПроцедуры
 
-Процедура ПрочитатьКомпонент(Знач Парсер, Знач МассивКомпонентов)
+Функция ПрочитатьКомпонент(Знач Парсер)
 	Токен = Парсер.Текущий();
 	Если Токен.Тип = Парсер.ТипЧисло Тогда
-		МассивКомпонентов.Добавить(Токен.Значение);
 		Парсер.Следующий();
+		Возврат Токен.Значение;
 	ИначеЕсли Токен.Тип = Парсер.ТипТекст Тогда
 		Текст = Токен.Значение;
 		ТекТокен = Парсер.Следующий();
 		Пока ТекТокен.Тип = Текст или ТекТокен.Значение = "-" Цикл
 			Текст = Текст + ТекТокен.Значение;
 			Парсер.Следующий();
 		КонецЦикла;
-		МассивКомпонентов.Добавить(Текст);
+		Возврат Текст;
 	Иначе
 		ВызватьИсключение СтрШаблон("Ожидается компонент версии, но получен <%1>", ?(Токен.Значение = "", "EOF", Токен.Значение));
 	КонецЕсли;
-КонецПроцедуры
+КонецФункции
 
 Функция ПодготовитьКЧтению(Знач СтрокаВерсии)