Después de mucho leer y preguntar encontré la solución, como siempre sencilla cuando parece un mundo por resolver.
El problema que estaba teniendo es que necesitaba inicializar el array dinámico. La líneas:
Prd: Array_Of_ProductCode2;
Ori: Array_Of_OriginCode;
Declaran arrays sin miembros, por tanto no se pueden asignar, para poderlo hacer hay que utilizar la función SetLength(array, número de miembros), por ejemplo:
Setlength(Prd, 3);
Esto establece el array con la cantidad de 3. Dicho array siempre será base 0, osea irá desde 0 hasta 2. Para poder saber el número de miembros de un array dinámico hay que utilizar la función length como con los strings.
Aplicando esta instrucción solucioné el problema de asignación.
Espero que a alguien le sirva.
Un saludo
|