Добрый день!
Столкнулся с незнакомой проблемой.
Видел, что где-то на форуме обсуждалось, но найти не смог... :(
Объявил типы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
// Режим "переброски" объектов и списков
TAssignMode = (amClear, // режим с очисткой
amCatalog, // присвоение каталожных значений с поиском объектов по идентификатору
amValue, // переброска с присвоением величин
amSpecial, // переброска специальных значений
amAppend, // добавление недостающих элементов
amSync // синхронизация
);
// Режим [] - обычный режим
TAM = set of TAssignMode;
и хочу использовать в качестве параметра процедур для "переброски" списков (использую Generics):
1.
procedure Assign(Source: TEnMapSourceLinks; AObjects: TNObjects; AFuels: TFuelTypes; const Mode: TAM = []);
У элементов списков есть аналогичные функции, типа:
1.
2.
procedure Assign(Source: TEnMapSourceLink; const Mode: TAM = [amClear]); overload;
procedure Assign(Source: TEnMapSourceLink; AObjects: TNObjects; AFuels: TFuelTypes; const Mode: TAM = []); overload;
которые вызываются внутри процедур присвоения списков.
При вызове, в некоторых случаях параметр Mode передается правильно, но периодически, при дальнейшей передаче внутри функции к дочерним элементам, Mode доходит неверно.
Например: передаю
Mode = [amSync] а доходит
Mode = [amAppend, amSync (6) out of bounds] , или нечто другое.
Подскажите, кто в курсе, что бы это могло быть?
