掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストのインデックスが範囲を超えています・・・ (ID:29829)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
m3u形式のプレイリストをリストボックスに表示させようとしているんですが、 procedure TForm1.Button1Click(Sender: TObject); var PL: TStringList; i: Integer; begin if OpenDialog1.Execute then begin PL := TStringList.Create; try PL.LoadFromFile(OpenDialog1.FileName); for i:=0 to PL.Count do begin if LeftStr(PL.Strings[i], 4) = '#EXT' then begin PL.Delete(i); end; if PL.Strings[i] = '' then begin PL.Delete(i); end; ListBox1.Items.Add(ExpandFileName(PL.Strings[ListBox1.Count])); end; finally PL.Free; end; end; end; というやりかただと「リストのインデックスが範囲を超えています」という例外が発生してしまいます たぶんループ中に最終値が変わってしまうから発生するんじゃないかと思うんですがうまく回避する方法はないでしょうか・・・
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.