EStringListError aufgetreten (delphi7)

[mkinzler]

Wie gesagt, zähle mal die Anzahl der Elemente und die Anzahl der Schritte der Schleife
Bsp 3 Einträge
1. Eintrag hat Index 0
2. Eintrag hat Index 1
3. Eintrag hat Index 2
Count ist aber 3!

[onkeldave]

:gruebel: super jetzt hab ich mein program kaput gebastelt :wall:

naja

ich versuche es morgen nochmal

schönen abend noch

[onkeldave]

ok ich habe es jetzt wieder so wie es war

kanst du mir nicht einfach zeigen wie es dan richtig aussieht weil mit deinen umschreibungen fang ich so direckt nicht viel an

[mkinzler]

Na Count ist 3 und der Index des hoechsten Elementes is 2. Ist einfach Mathematik
Count - <x> = 2 -> x = ?

[DeddyH]

Oder einfacher (damit das endlich ein Ende hat): mach aus dem

Zitat:

Delphi-Quellcode:

for i := 0 to listbox1.Count  do

ein

Delphi-Quellcode:

for i := 0 to listbox1.Count - 1 do

Das natürlich auch an allen anderen Stellen, wo Du das "- 1" vergessen hast (ich habe nicht den kompletten Code gelesen).

[onkeldave]

joa ich habe jetzt schön bei jedem count ein -1 gemacht aber effektiv hat das jetzt nicht wirklich was gebracht ^^

stopt halt jetzt bei der Break

ich klaub ich kan mein 1. projekt in den mülleimer schmeisen :? :(

[DeddyH]

Zeig doch nochmal den relevanten Code.

[onkeldave]

also alles läuft bis hier hin

Zitat:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
begin
 for i :=0 to listbox1.Count - 1  do
    if listbox1.Selected[i] then
    begin
      { nun haben wir in i die nummer der selektierten Zeile
      da Listbox und Playlist eine identische Reihe der Einträge und gleiche Sortierung
      vorweisen, können wir mit dem erhaltenen index den richtigen Eintrag der Playlist
      auslesen. }
      PlayFile(i);
     break;
    end;



end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);  // unser neues Notify-Event
begin
   if mediaplayer1.Position = mediaplayer1.Length then begin
   // position = gesamtlänge, bedeutet dass das lied beendet wurde
     Listbox1.Selected[currentSong] := false; // das gerade gespielte lied de-selektieren
     inc(currentSong); // aktuellen song um eines erhöhen

     if currentSong < Playlist.Count -1 then { alles passt, songindex im rahmen}
     else currentsong := 0; {ende der liste erreicht, setze aktuelles lied auf anfang}
     PlayFile(CurrentSong);
     Listbox1.Selected[currentSong] := true; // das aktuelle lied selektieren
   end;


end;


end

.

entweder stopt er bei end; oder bei break oder bei Listbox1.Selected[currentSong] := true;

[DeddyH]

Und was meinst Du mit "er stopt"?

[onkeldave]

ja die fehlermeldung ^^ das grundproblem halt ^^

http://i36.tinypic.com/mwch35.png