EStringListError aufgetreten (delphi7)

[onkeldave]

:hi: Guten Abend

Ich möchte euch mein 1. Projekt vorstellen einen MP3 Player.
Er funktioniert auch soweit.:coder:

Delphi-Quellcode:

unit test_u;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ShellApi, mmsystem;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Procedure AddToPlayList(s:string);
    procedure PlayFile(songNumber: integer);  // deklaration von playfile ändern, hier das 1. mal  
    Procedure WMDropFiles (Var aMsg: tMessage);  message WM_DROPFILES;
  end;

var
  Form1: TForm1;
  playList: TStringList;
  CurrentSong: integer = -1;  // neue globale variable um uns das aktuelle lied zu merken

implementation

{$R *.dfm}

Procedure TForm1.WMDropFiles (Var aMsg: tMessage);
Var
  Idx, Size, FileCount: Integer;
  Filename: pChar;
Begin
  Inherited;
  FileCount := DragQueryFile (aMsg.WParam, $FFFFFFFF, nil, 255);
  For Idx := 0 To FileCount -1 Do Begin
    Size := DragQueryFile (aMsg.WParam, Idx, nil, 0) + 1;
    Filename := StrAlloc (Size);
    If DragQueryFile (aMsg.WParam, Idx, Filename, Size) = 1 Then  { nothing }
    else  AddToPlayList (pChar (Filename));
    StrDispose (Filename);
  End;
  DragFinish (aMsg.WParam);
End;

Procedure TForm1.AddToPlayList(s:string);
begin
   playList.Add(s);
   ListBox1.Items.Add(extractfilename(s));
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  mediaplayer1.FileName := 'C:\Users\Dave\Desktop\testut\01 Die, All Right!.wma';
  mediaplayer1.Open;
  mediaplayer1.play;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DragAcceptFiles (Handle, True);   // drag und drop akzeptieren
   playList := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   playList.Free;
end;

procedure TForm1.PlayFile(songNumber: integer);  // deklaration von playfile ändern, hier das 2. mal  
begin
   if fileexists(Playlist.Strings[songNumber]) then begin
     CurrentSong := songNumber;
     mediaplayer1.Close;
     mediaplayer1.FileName := Playlist.Strings[songNumber];
     mediaplayer1.Open;
     mediaplayer1.play;
   end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to listbox1.Count  do
    if listbox1.Selected[i] then break;
  { 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);


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.

das erste lied läuft und sobalt das 2 starten sollte kommt diese Fehlermeldung

Fehlermeldung
Im Projekt unit.exe ist eine Exception der Klasse EStringListError aufgetreten. Meldung: ' Listenindex überschreitet das Maximum (1)'. Prozess wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen.


und hier bei dem letzten end; würd der fehler gefunden

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to listbox1.Count  do
    if listbox1.Selected[i] then break;
  { 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);


end;

Ich hoffe mir kann einer Helfen :coder2:

ich habe so zimlich überall nachgeschaut und irgendwie nichts gefunden :wall: :wall:

[himitsu]

Nicht da schauen, wo der Debuger grad ist, sondern davor!

Der Fehler wurde ja schon bearbeitet und der Debugger steht immer da, wo es gleich weitergeht.

Delphi-Quellcode:

for i := 0 to listbox1.Count  do

Von wo bis wo wird gezählt?


[add]
Wenn du weißt, daß dort irgendwo ein Fehler auftritt,
dann leg dir z.B. auf das Begin oder den ersten Befehl einen Haltepunkt
> notfalls erst dann den Haltepunkt hinmachen, wenn der Fehler vermutlich gleich passieren muß
> falls vorher noch mehrmals dieses erfolgreich durchläuft
> PS: man kann den Haltepunkten auch Bedinungen verpassen, wann sie halten sollen
und geh nun diese Prozedur im Einzelschritt durch, dann siehst du schon, wo es tatsächlich knallt.

Nun noch schauen was da nicht stimmt (z.B. Variablen überprüfen) und dann die Ursache suchen.

[onkeldave]

ämm ja

geht nach und nach durch und stopt dan bei dem end;
http://i36.tinypic.com/mwch35.png

ich kenn mich da jetzt auch nicht so gut aus ist halt einer meiner ersten programier versuche. und da ich dies zum teil aus anderen foren rausgeholt wüste ich jetzt auch nicht was da nicht stimmt .... :wall: :glaskugel:

[mkinzler]

Die ListBox scheint leer zu sein

[onkeldave]

öm nein da seht eig. was drin
hier
http://i36.tinypic.com/2guxxt1.png

[mkinzler]

In der Fehlermeldung steht aber das das Maximum 0 ist; also leer ist. Handelt es isch wirklich um die selbe ListBox?
Zudem stimmen, wie Frank schon geschrieben hat, die Grenzen nicht (Zähl mal die Anzahl deines Bereichs und vergleiche sie mit Count)

[onkeldave]

´hmmm.....

ich habe da jetzt 10 stadt 0 geschrieben und jetzt kommt das ^^

http://i35.tinypic.com/25ktnbm.png

add//

äm mir ist noch was aufgefallen wen ich einfach nochmal kompeliere nach der Fehlermeldung
kommt dies
listindex überschreitet das Maximum (4397572)

[mkinzler]

Das erste Element hat schon den Index 0, aber das letzte ...

[onkeldave]

super jetzt wo ich nochmal schrit für schrit durch gegangen bin
hat mich hier rausgehauen vieleicht seht ihr den Fehler

Delphi-Quellcode:

Listbox1.Selected[currentSong] := true; // das aktuelle lied selektieren

[mkinzler]

Wie sehen deine Grenzen jetzt aus?
Wie geschrieben stimmt die untere.