Delphi error E2283 Demasiados constantes locales

Question

que estoy teniendo un problema con mi compilación de código en Delphi 2006. Estoy utilizando una matriz de cadenas estáticas:

fsi_names : array [0..FSI_NUM_VARS-1] of string; 

En un procedimiento que llamo al comienzo del programa, Asigno valores a esta matriz. Este código se genera automáticamente por un script que escribí. Consta de líneas similares a la siguiente:

fsi_names[idFSI_FLIGHT_PATH_ANGLE] := 'FSI_FLIGHT_PATH_ANGLE'; 

En general, hay alrededor de 2000 elementos para asignar en esta matriz. No pude encontrar el número mágico donde el compilador muere, pero funciona con 1853 y no con 2109.

Lo que pasa es que necesito esta matriz para convertir una ID (que es el índice de la matriz)) a un nombre como una cadena para varias aplicaciones.

Sé que si pudiera dividir la lista de tareas y poner las partes en diferentes procedimientos, entonces funciona. Pero dado que el código se genera automáticamente y cambia con frecuencia, este método no es muy cómodo.

También pensé en poner el contenido en un archivo y leerlo en tiempo de ejecución, pero prefiero mantener el número de archivos que envío al mínimo. Además, me gustaría proteger los contenidos del usuario promedio, para que no se meta con ellos.

¿Tiene alguna idea de cómo podría superar la limitación del compilador o cambiar mi código para lograr mi objetivo?

La ayuda es muy apreciada.

Answer 1

I ¡ENCONTRÉ UNA SOLUCIÓN!

Si inicializar mi matriz en el punto donde lo defino, entonces el compilador no escupir el mensaje de error:

const 
    fsi_names : array [0..FSI_NUM_VARS-1] of string = (
    'NAME 0', 
    'NAME 1', 
    ... 
    'LAST NAME' 
    ); 

Por lo que yo puedo decir, no hay límite en cuanto al número de literales de cadena si lo hago así.

¡Muchas gracias por sus ideas, la de mj2008 fue de lo más útil!

tenga un buen día

Flo

Answer 2

Si yo fuera usted, crearía un archivo de texto ASCII simple con los identificadores, de modo que la línea idFSI_FLIGHT_PATH_ANGLE + 1 del archivo contenga la cadena "FSI_FLIGHT_PATH_ANGLE". Luego agregaría este archivo a los recursos de la aplicación. Al hacerlo, los datos se incluirán en el archivo EXE, y se puede leer fácilmente los datos en tiempo de ejecución:

function GetNthString(const N: integer): string; 
var 
    RS: TResourceStream; 
begin 
    RS := TResourceStream.Create(hInstance, 'NAMEOFRESOURCE', RT_RCDATA); 
    with TStringList.Create do 
    try 
     LoadFromStream(RS); 
     result := Strings[N]; 
    finally 
     Free; 
    end; 
    RS.Free; 
end; 

Answer 3

alternativa es usar matriz dinámica

from 
fsi_names : array [0..FSI_NUM_VARS-1] of string; 

to 
fsi_names: array of string; 
SetLength(fsi_names, FSI_NUM_VARS); 

Saludos