"Index der Liste überschreitet das Maximum (110)" Warum?

[Lemmy]

Willkommen,

die Fehlermeldung sagt schlicht, dass Du bei einer Liste auf ein Element zugreifst, das es nicht gibt. Dafür gibt es viele Ursachen. Am einfachsten ist es, wenn Du dein komplettes Projekt (*.dpr, *.pas *.dfm.... aber ohne *.exe und ohne *.dcu) zipst und hier anhängst. Ohne Code ist hier eine Fehlersuche wie stochern im Nebel.

Ich bin für heute aber raus

[felix00186]

Hier ist alles in einer ZIP-Datei.
Es kommt mir aber ziemlich komisch vor, dass sich der Fehler immer um so viele Zeilen verschiebt, wie ich mit // rausnehme. Sogar bei "end;" war angeblich schon mal der Fehler.

Das betrifft die Unit 3 im Zip-Ordner.

Guten Rutsch euch allen!

[Bjoerk]

Nimm mal das Spiel := TStringList.create aus der Button1Click heraus?

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  Spiel := TStringList.create;
  ..
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  Spiel.Free;
end;

[SProske]

Delphi-Quellcode:

vorzeile:=Random(vornamen.count+1)+1;
     vorname:=vornamen[vorzeile];

Sieht potentiell gefährlich aus:
Hätte die Stringliste Vornamen genau 3 Elemente, würdest du Zufallszahlen von 0-3 Erzeugen und dazu 1 Addieren, also Zahlen von 1-4 in vorzeile stehen.
Die Stringliste hat aber nur die Indices 0,1,2 - bei 3 oder 4 würde es also immer zu der Index-Fehlermeldung kommen, während der Index 0 nie angesprungen würde.

Delphi-Quellcode:

vorzeile:=Random(vornamen.count);
     vorname:=vornamen[vorzeile];

Sollte korrekt sein.

[felix00186]

Zitat von SProske:

Delphi-Quellcode:

vorzeile:=Random(vornamen.count+1)+1;
     vorname:=vornamen[vorzeile];

Sieht potentiell gefährlich aus:
Hätte die Stringliste Vornamen genau 3 Elemente, würdest du Zufallszahlen von 0-3 Erzeugen und dazu 1 Addieren, also Zahlen von 1-4 in vorzeile stehen.
Die Stringliste hat aber nur die Indices 0,1,2 - bei 3 oder 4 würde es also immer zu der Index-Fehlermeldung kommen, während der Index 0 nie angesprungen würde.

Delphi-Quellcode:

vorzeile:=Random(vornamen.count);
     vorname:=vornamen[vorzeile];

Sollte korrekt sein.

Vielen Dank, daran lag es!

[felix00186]

Zitat von Bjoerk:

Nimm mal das Spiel := TStringList.create aus der Button1Click heraus?

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  Spiel := TStringList.create;
  ..
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  Spiel.Free;
end;

Dir auch vielen Dank! Das stimmt, die Stringlist spiel wurde wirklich mehrmals erstellt. Jetzt funktioniert das Programm endlich bis zu diesem Punkt und ich kann weitermachen. Warum der Fehler an total unterschiedlichen Stellen angezeigt wurde, die damit so gut wie nichts zu tun haben, weiß ich immer noch nicht, aber ist ja auch egal.