Zitat:
Und noch etwas: hast du den Schreibfehler bemerkt?
Hab ich korrigiert danke für den Hinweis. Das mit dem löschen der slTmp1 und slTmp2 Stringlisten da haste Recht hab es jetzt am Anfang der Schleife gesetzt. Trotzdem ist immer noch der blöde Fehler da
hier muss er drin stecken der böse böse Fehler
denn klammer ich diesen Code aus meckert er nicht mehr
Delphi-Quellcode:
if (fMain.slTmp1.Strings[0] <> '') and (fMain.slTmp1.Strings[3] <> '') then
begin
sArtist := fMain.slTmp1.Strings[0];
sTitle := fMain.slTmp1.Strings[3];
fMain.lbMP3Ausgabe.Items.Add(IntToStr(i+1) + '.' + ' '+ sArtist +' - '+ sTitle);
end
else
begin
//wenn nichts vorhanden ist weiter und slTmp2 überprüfen
if (fMain.slTmp2.Strings[0] <> '') and (fMain.slTmp2.Strings[3] <> '') then
begin
sArtist := fMain.slTmp2.Strings[0];
sTitle := fMain.slTmp2.Strings[3];
fMain.lbMP3Ausgabe.Items.Add(IntToStr(i+1) + '.' + ' '+ sArtist +' - '+ sTitle);
end
else
begin
// wenn in slTmmp2 auch nichts enthalten ist dann nur Dateinamen eintragen
sDateiname := ExtractFileName(fMain.slMP3.Strings[i]);
fMain.lbMP3Ausgabe.Items.Add(IntToStr(i+1) + '.' + ' '+ ChangeFileExt(sDateiname,''));
end;//if slTmp2
end;//if slTmp1
Der gesamte Code funktioniert wenn ich zb: einen Hauptordner (MP3s) lade der 10 Unterordner besitzt und insgesamt 4825 mp3s hat
zb:
MP3s //Hauptordner
Unterordner1
Unterordner2
Unterordner3
Unterordner4
Unterordner5
Unterordner6
Unterordner7
Unterordner8
Unterordner9
Unterordner10
Lade ich aber einen Hauptordner der noch mehr Unterordner und somit mehr mp3s enthält zb:so wie hier dann kommt der besagte Fehler. Klammer ich aber wie schon erwähnt den oben stehenden Code aus dann geht auch das ohne Probleme. Also das befüllen von slMP3 klappt ohne Fehler. Ab der If-Abfrage funktioniert etwas nicht sobald es zu viele mp3s sind oder warum auch immer
MP3Verzeichnis jetzige Hauptordner
noch ein Unterordner1
noch ein Unterordner2
MP3s
Unterordner1
Unterordner2
Unterordner3
Unterordner4
Unterordner5
Unterordner6
Unterordner7
Unterordner8
Unterordner9
Unterordner10