Problemas con arreglos bidimensionales contantes

[davidc]

Buen día

Quisiera consultar este problema.

Estoy creando un array bidimensional de strings constante.

const Campos: array [0 .. 16,0..3] of string =
(
('CLI_CLASE','CLASE DOCUMENTO','CLIENTE','CLI_CODIGO'),
('CLS_NOMBRE','NOMBRE','CLIENTE_SALDO','CLS_CODIGO'),
('CLI_REPRESENTANTE','REPRESENTANTE','CLIENTE','CLI_CODIGO'),
('CLI_DIRECCION','DIRECCIÓN','CLIENTE','CLI_CODIGO'),
('CLI_TELEFONO1','TELÉFONO 1','CLIENTE','CLI_CODIGO'),
...
...
);

Cuando la aplicación se ejecuta realizo recorridos al arreglo para obtener datos. El problema es que en algunos casos cuando se ejecuta la aplicación, al recorrerlo se muestra cada posición vacía.

Lo implemente como array de records. Paso lo mismo.
Lo implemente en una clase (como arreglo bidimendional de strings o de arreglo unidimensional de records). Pasa lo mismo.
Lo implemente como parte de un unit. Pasa lo mismo.


No se ha detectado un patrón para el error.
Es algo raro pues es una constante. Ahora por ser arreglo lo único que se hace es recorrerlo.

IDE: Delphi 2010
S.O. Windows 7 Home Premium 64 Bits


Agradezco cualquier ayuda que puedan brindarme.

Gracias.