Delphi Lỗi E2283 Quá nhiều hằng địa phương

Question

Tôi gặp một vấn đề biên soạn với mã của tôi trong Delphi 2006. Tôi đang sử dụng một static String mảng:

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

Trong một thủ tục mà tôi gọi vào lúc bắt đầu của chương trình, Tôi gán các giá trị cho mảng này. Mã này được tạo tự động bởi một tập lệnh mà tôi đã viết. Nó bao gồm các dòng tương tự như dòng tiếp theo:

fsi_names[idFSI_FLIGHT_PATH_ANGLE] := 'FSI_FLIGHT_PATH_ANGLE'; 

Có tổng cộng khoảng 2000 phần tử được gán trong mảng này. Tôi không thể tìm ra số ma thuật mà trình biên dịch chết, nhưng nó hoạt động với năm 1853 và không hoạt động với 2109.

Điều này là tôi cần mảng này để chuyển đổi ID (là chỉ mục cho mảng) cho một tên như một chuỗi cho các ứng dụng khác nhau.

Tôi biết rằng nếu tôi chia danh sách bài tập và đưa các phần vào các thủ tục khác nhau, thì nó sẽ hoạt động. Nhưng vì mã được tạo tự động và thay đổi thường xuyên, phương pháp này không hoàn toàn thoải mái.

Tôi cũng nghĩ về việc đưa nội dung vào một tệp và đọc nó trong thời gian chạy, nhưng tôi muốn giữ số lượng tệp tôi phải gửi đến mức tối thiểu. Ngoài ra, tôi muốn bảo vệ nội dung từ người dùng trung bình, để anh ấy không gây rối với nó.

Bạn có ý tưởng làm cách nào để vượt qua giới hạn của trình biên dịch hay thay đổi mã của tôi để đạt được mục tiêu của mình không?

Trợ giúp được đánh giá rất nhiều.

Answer 1

tôi FOUND A GIẢI PHÁP!

Nếu tôi khởi tạo mảng của tôi tại thời điểm mà tôi định nghĩa nó, sau đó trình biên dịch không nhổ ra thông báo lỗi:

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

Theo như tôi có thể nói, không có giới hạn về số lượng chuỗi chữ nếu tôi làm như vậy.

Cảm ơn bạn rất nhiều vì ý tưởng của bạn, bài viết của mj2008 hữu ích nhất!

Have a nice day

Flo

Answer 2

Nếu tôi là bạn, tôi sẽ tạo một tệp văn bản ASCII đơn giản với số nhận dạng, để dòng idFSI_FLIGHT_PATH_ANGLE + 1 của tệp chứa chuỗi "FSI_FLIGHT_PATH_ANGLE". Sau đó, tôi sẽ thêm tệp này vào tài nguyên của ứng dụng. Bằng cách làm như vậy, dữ liệu sẽ được đưa vào EXE, và bạn có thể dễ dàng đọc dữ liệu tại thời gian chạy:

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 đang sử dụng mảng động

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

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

Cheers