Delphi 错误 E2283 局部常量太多

Question

我在 Delphi 2006 中的代码遇到编译问题。我使用的是静态字符串数组：

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

在程序开始时调用的过程中，我向该数组赋值。该代码是由我编写的脚本自动生成的。它由与下一行类似的行组成：

fsi_names[idFSI_FLIGHT_PATH_ANGLE] := 'FSI_FLIGHT_PATH_ANGLE';

这个数组总共有大约 2000 个元素要分配。我找不到编译器死掉的神奇数字，但它适用于 1853 而不适用于 2109。

问题是我需要这个数组将 ID（数组的索引）转换为名称作为各种应用程序的字符串。

我知道如果我将作业列表分开并将各个部分放入不同的程序中，那么它就会成功。但由于代码是自动生成的并且经常更改，这种方法不太舒服。

我还考虑过将内容放入文件中并在运行时读取它，但我宁愿将必须发送的文件数量保持在最低限度。另外，我想保护普通用户的内容，这样他就不会乱搞。

您知道我如何克服编译器的限制，或者更改我的代码以实现我的目标吗？

非常感谢您的帮助。

Answer 1

如果我是您，我会创建一个带有标识符的简单 ASCII 文本文件，以便文件的 idFSI_FLIGHT_PATH_ANGLE + 1 行包含字符串“FSI_FLIGHT_PATH_ANGLE”。然后我会将此文件添加到应用程序的资源中。这样，数据将包含在 EXE 中，您可以在运行时轻松读取数据：

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 2

我找到了解决方案！

如果我在定义数组的位置初始化数组，那么编译器不会吐出错误消息：

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

据我所知，如果我这样做，字符串文字的数量就没有限制。

非常感谢您的想法，mj2008 的想法非常有帮助！

祝你有美好的一天

弗洛

Answer 3

替代方法是使用动态数组

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

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

干杯