Delphi Hata E2283 çok fazla yerel sabitleri

Question

Ben Delphi bir statik dize dizisi kullanıyorum 2006'da benim koduyla bir derleme sorun yaşıyorum: Ne programın başında dediğimiz bir prosedürde

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

, Bu diziye değerler atarım. Bu kod, yazdığım bir komut dosyası tarafından otomatik olarak oluşturulur. Aşağıdaki diziye benzer çizgilerden oluşur: Bu dizide atanacak genel olarak yaklaşık 2000 öğe vardır. Derleyicinin öldüğü sihirli numarayı bulamadım ama 1853 ile çalışıyor ve 2109 ile çalışmıyor.

Buradaki bir dizi, bir tanıtıcıyı dönüştürmek için bu diziye ihtiyacım var (dizinin dizinidir)) çeşitli uygulamalar için bir isim olarak bir isim.

Eğer ödev listesini bölerek parçaları farklı prosedürlere koyarsam, o zaman işe yaradığını biliyorum. Ancak kod otomatik olarak oluşturulduğundan ve sık sık değiştiği için, bu yöntem oldukça rahat değildir.

Ayrıca içeriği bir dosyaya koymayı ve çalışma zamanında okumayı düşündüm, ancak göndermem gereken dosya sayısını minimumda tutmayı tercih ederim. Ayrıca, içeriği ortalama kullanıcıdan korumak istiyorum, böylece onunla uğraşmaz.

Derleyicinin sınırlamalarının üstesinden nasıl gelebileceğimi veya hedefime ulaşmak için kodumu nasıl değiştirebileceğimi biliyor musunuz?

Yardımı çok takdir edilmektedir.

Answer 1

ben edilir BİR ÇÖZÜM BULUNMAKTADIR!

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

Bildiğim kadarıyla söyleyebilirim

, sayısı ile ilgili sınırlama yoktur: Ben bunu tanımlamak noktasında benim diziyi başlatmak durumunda

ardından derleyici hata mesajı tükürür gelmez Ben bunu böyle yaparsam dize edebi.

Fikirleriniz için çok teşekkürler, en çok mj2008 tarafından yapıldı!

Flo

Answer 2

Senin yerinde olsaydım, tanımlayıcılarla basit bir ASCII metin dosyası oluştururdum, böylece dosyanın "FSI_FLIGHT_PATH_ANGLE" dizesini içeren idFSI_FLIGHT_PATH_ANGLE + 1 satırı bulunur. Sonra bu dosyayı uygulamanın kaynaklarına eklerim. Böyle yaparak, veri EXE dahil edilecektir ve kolayca çalışma anında veri okuyabilir:

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

Alternatif dinamik dizi kullanarak

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

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

Alkış