Woher kommt WordCount, das darf maximal Vocabulary.Count - 1 sein.
WordCount wird unter "FormCreate" auf 3 Festgelegt (nur zum testen). Es sind auch genau 3 Vokabeln in der TXT-Datei die im Moment so aussieht:
Code:
black=schwarz
red=rot
blue=blau
In FormCreat steht noch folgendes damit die erste Vokabel sofort bei Programmstart angezeigt wird:
Code:
WordCount:= 3;
RandomNumber:= random(WordCount);
try
Vocabulary:= TStringList.Create;
Vocabulary.LoadFromFile('Vocabulary.txt');
L_UnknownWord.Caption:= Vocabulary.ValueFromIndex[RandomNumber];
L_CorrectAnswer.Caption:= '';
finally
Vocabulary.Free;
end
Wenn Du aber erst eine Zufallszahl im Bereich bis WordCount "würfelst", aber WordCount zufällig größer als Vocabulary.Count - 1 ist, kann es sporadisch Fehler geben.
Der Fehler tritt IMMER auf. Das ist ja das Komische.
Die Vokabeln für jede einzelne Abfrage neu zu laden, halte ich nicht für so eine besonders gute Idee.
Jap, das hab ich mir auch gedacht, ist aber im Moment die einzige Möglichkeit das Programm zum Laufen zu bekommen
