Delphi Erreur E2283 Trop de constantes locales

Question

J'ai un problème de compilation avec mon code Delphi 2006. J'utilise un tableau de chaînes statiques:

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

Dans une procédure que j'appelle au début du programme, J'attribue des valeurs à ce tableau. Ce code est généré automatiquement par un script que j'ai écrit. Il se compose de lignes similaires à la suivante:

fsi_names[idFSI_FLIGHT_PATH_ANGLE] := 'FSI_FLIGHT_PATH_ANGLE'; 

Il y a environ 2000 éléments à affecter dans ce tableau. Je n'ai pas pu trouver le nombre magique où meurt le compilateur, mais ça marche avec 1853 et non avec 2109.

Le truc c'est que j'ai besoin de ce tableau pour convertir un ID (qui est l'index du tableau) à un nom sous forme de chaîne pour diverses applications.

Je sais que si je diviserais la liste des affectations et mettrais les parties dans différentes procédures, alors cela fonctionnerait. Mais puisque le code est généré automatiquement et change souvent, cette méthode n'est pas très confortable.

Je pensais aussi mettre le contenu dans un fichier et le lire au moment de l'exécution, mais je préférerais que le nombre de fichiers que je dois expédier soit réduit au minimum. En outre, je voudrais protéger le contenu de l'utilisateur moyen, afin qu'il ne plaisante pas avec lui.

Avez-vous une idée de comment surmonter la limitation du compilateur ou changer mon code pour atteindre mon objectif?

L'aide est très appréciée.

Answer 1

I TROUVÉ UNE SOLUTION!

Si j'initialiser mon tableau au point où je le définis, le compilateur ne crache pas le message d'erreur:

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

Pour autant que je sache, il n'y a pas de limite quant au nombre de littéraux de chaîne si je le fais comme ça.

Merci beaucoup pour vos idées, celle de mj2008 a été très utile!

Avoir une belle journée

Flo

Answer 2

Si j'étais vous, je créerais un simple fichier texte ASCII avec les identifiants, de sorte que la ligne idFSI_FLIGHT_PATH_ANGLE + 1 du fichier contient la chaîne "FSI_FLIGHT_PATH_ANGLE". Ensuite, je voudrais ajouter ce fichier aux ressources de l'application. Ce faisant, les données seront incluses dans le fichier EXE, et vous pouvez facilement lire les données à l'exécution:

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

Alternative utilise un tableau dynamique

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

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

Vive