So ganz scheint es doch nicht mit "Names" und "ValueFromIndex" zu funktionieren. Ich hab jetzt alles darauf umgeschrieben, bekomme auch keinen Compiler Error aber wieder ein "List Index out of Bounds" Fehler. Der tritt genau in der Zeile auf wo die Eingabe der Vokabel mit der in der TXT-Datei hinterlegten verglichen wird.
Code:
Begin
Input:= E_UserGuess.Text;
E_UserGuess.Text:= '';
Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);
RepetitionCheck:=RandomNumber;
While RepetitionCheck = RandomNumber Do RandomNumber:=random(WordCount);
try
Vocabulary:= TStringList.Create;
Vocabulary.LoadFromFile('Vocabulary.txt');
L_UnknownWord.Caption:= Vocabulary.ValueFromIndex[RandomNumber];
finally
Vocabulary.Free;
end;
end
Wenn ich "Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);" auskommentiere geht es aber ich muss die Wörter vergleichen. Es liegt auch nicht an "RandomNumber", wenn ich das durch eine Zahl ersetze kommt der gleiche Fehler.
Gibt es noch eine Möglichkeit die zu vergleichen?