Hallo.
[Antwort kommt leider wegen temp. Netzwerkproblem zu spät. Ich poste trotzdem meinen Entwurf:]
Delphi-Quellcode:
x := x + 1;
SetLength(LanguageFiles, x + 1);
LanguageFiles[x].Create(ExtractFilePath(ParamStr(0)) + 'Language\' + sr.Name);
Dein Array müsste bei Index=1 anfangen und dann immer um 1 erweitert werden. Und was ist mit dem nullten (0.) Element? Initialisiere doch mal x mit x := -1;
(Anmerkung: Verwende doch inc(x) statt x := x+1, sieht schöner aus)
Außerdem wäre hier sinnvoll, zu wissen wie dein TLanguageFile funktioniert. Wie ist der Code von Create()?
Teste bitte auch deinen Code genau, in dem du per F7 Schrittweiße den Code so lange ausführst und kontrollierst, bis die
Exception erscheint. Dann weißt du schonmal die exakte Zeile, in der der Fehler auftritt. (Bitte Code posten und ein "//
EXCEPTION" dahinter).
Gruß
blackdrake