Registriert seit: 8. Dez 2005
Ort: am Chiemsee
304 Beiträge
Delphi 7 Professional
|
Re: TStringlist aus Datei gelesen
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)
|