Listenindex überschreitet das Maximum

[mize03]

hallo leute,:hi:


es tut mir leid wenn ich hier einer wahrscheinlich total doofe frage stell aber ich komm einfach nicht weiter.
ich wollte n kleinen editor programieren, welcher wenn man ein wort eintipp vorschläge macht welches wort gemeint ist.
(wie bei vielen handys auch)

aber ich muss irgendein leichtsinnsfehler gemacht haben :(

Wortschatz.txt beinhaltet die vorhandenen Wörter und die zeilen 8-10 sind erstmal nur als kontrolle gedacht(also nicht über den sinn grübeln).

Delphi-Quellcode:

  
1   begin
2   wortschatz := tstringlist.create;
3
4   if FileExists('Wortschatz.txt') then begin
5     wortschatz.loadfromfile('Wortschatz.txt');
6   end;
7
8   if (wortschatz[1] <> '')then begin
9     ausgabe := wortschatz[1];
10  end;

end;

wenn ich das Programm nun so laufen lasse kommt immer folgende Fehlermeldung:

Im Projekt Editor.exe ist eine Exception der Klasse EStringListError mit der Meldung'Listenindex überschreitet das Maximum(1) aufgetreten.



ich bin mit meinem latein echt am ende ich kann nicht mehr hab jetz seit fast 3h versucht dieses blöde problem zu lösen,
aber ihr seit sicher schlauer als ich :D


schonmal im vorraus vielen dank an alle antworten :)


grüße mize03

[Bernhard Geyer]

Dateiangaben ohne komplette Pfadangaben sind ein Glücksspiel. Der aktuelle Pfad der Anwendung kann alles mögliche sein und nicht zwangsweise der Pfad zur Exe.

[DeddyH]

Zuerst fragst Du, ob die Datei vorhanden ist und füllst ggf. die Stringliste daraus. Aber auch wenn die Datei gar nicht existiert und die Liste somit leer ist, versuchst Du anschließend auf die 2. Zeile zuzugreifen.