Einzelnen Beitrag anzeigen

Benutzerbild von tomsel
tomsel

Registriert seit: 8. Dez 2005
Ort: am Chiemsee
304 Beiträge
 
Delphi 7 Professional
 
#2

Re: TStringlist aus Datei gelesen

  Alt 17. Dez 2005, 23:37
Ich würde mal das vorschlagen:
Delphi-Quellcode:
       
       i:=0
       while i < PlayList.Count do
         if FileExists(PlayList.Strings[i]) then begin
           PlayList_ListBox.Items.Add(ExtractFileName(PlayList[i]));
           inc(i)
         end else
           PlayList.Delete(i)
In der For-Schleife Items aus der Liste zu löschen ist sehr ungut, da das Schleifenende von der ursprünglichen Anzahl der Einträge bestimmt ist.
Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat. (Winston Churchill)
  Mit Zitat antworten Zitat