我在Delphi 2006中的代码有编译问题.我使用的是静态String数组:
fsi_names : array [0..FSI_NUM_VARS-1] of string;
在我在程序开始时调用的过程中,我为这个数组赋值.这段代码是由我编写的脚本自动生成的.它由与下一行类似的行组成:
fsi_names[idFSI_FLIGHT_PATH_ANGLE] := 'FSI_FLIGHT_PATH_ANGLE';
总共大约有2000个元素要在这个数组中分配.我无法找到编译器死亡的神奇数字,但它适用于1853而不适用于2109.
问题是我需要这个数组将ID(它是数组的索引)转换为名称作为各种应用程序的字符串.
我知道如果我将分配的作业列表拆分并将各部分放入不同的程序中,那么它就可以了.但由于代码是自动生成的并经常更改,因此这种方法不太舒服.
我还想过将内容放入一个文件并在运行时读取它,但我宁愿保留我必须发送的文件数量.另外,我想保护普通用户的内容,这样他就不会乱用它.
您是否知道如何克服编译器的限制,或者更改我的代码以实现我的目标?
非常感谢帮助.
解决方法
如果我是你,我会创建一个带有标识符的简单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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。