掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListViewの選択された複数行を削除するには? (ID:12969)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi初心者です。 Delphi7を使用しています。 以下の条件でエラーを出さずに選択された複数行を削除する方法がわかりません。 ・TListView Name:List ViewStyle:vsReport ReadOnly : True MultiSelect : True GridLines : True; ※上記以外はデフォルトの状態。 以下、プログラム中の削除関数の抜粋です。 : : var i, Count, j : Integer; tmpList : TStringList; SelCt : Integer; begin // リストの行数 Count := List.Items.Count; if(Count <> 0)then for i := 0 to (Count-1) do if(List.Items.Item[i].Selected)then // 選択した行を削除する List.Items.Delete(i); end; 上記を実行するとエラーになります。 特に十数行以上を削除する時にエラーとなります。 これは、表示が追いつかないからなのでしょうか? もしそうだとしたら、改善方法はあるのでしょうか? もし、ご回答できる方がいましたら、ご指導ください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.