Скачать: CL | DM;

найти пустые ячейки в третьем столбце ListView по всем строкам   Найти похожие ветки 

← →
Garacio ©   (2007-01-16 20:30) [0]

Мне необходимо найти пустые ячейки в третьем столбце ListView по всем строкам и заполнить их "Не найдено!". Пытаюсь так:
for i:=0 to ListView1.Items.Count-1 do
 begin
 if (ListView1.Items[i].SubItems.Count > 1)
   and (ListView1.Items[i].SubItems[2].Text = "") then
   ListView1.Items[i].SubItems.add("Не найдено!");
 end;
Но пустые ячейки продолжают оставаться пустыми!
Помогите исправить!

---

← →
Аноним   (2007-01-16 20:43) [1]

then
  ListView1.Items[i].SubItems[2]:="Не найдено!";
end;

---

← →
AFKer   (2007-01-16 20:46) [2]

for i:=0 to ListView1.Items.Count - 1 do
begin
  if (ListView1.Items[i].SubItems[2] > "") then
    ListView1.Items[i].SubItems[2]:="Не найдено!";
end;
может так..

---

← →
AFKer   (2007-01-16 20:49) [3]

только Subitems[0..N] должен быть уже создан..

---

← →
Garacio ©   (2007-01-16 21:46) [4]

> ListView1.Items[i].SubItems[2]:="Не найдено!";

Нет, не помогает! К тому-же возьмите ListView и попробуйте таким способои заполнить его :-)

---

← →
AFKer   (2007-01-16 23:12) [5]

да без проблем!

---

← →
Garacio ©   (2007-01-17 08:03) [6]

Нет, ну серьёзно:
При любых подобных попытках, будь то:
ListView1.Items[i].SubItems[2] := "Нет файлов!"; или
ListView1.Items[i].SubItems[1] := "Нет файлов!"; или
if ListView1.Items[i].SubItems[2] = "" then
при компиляции ругается
...
begin
 Application.Initialize;
 Application.CreateForm(TFormMain, FormMain);
 Application.Run;
end. //<- вот тут
Delphi при этом ничего не пишет в отчёте. А вот в самом приложении выскакивает: "List index out of bounds(2)"

---

← →
MBo ©   (2007-01-17 09:14) [7]

SubItems[2] - это третий элемент в списке, так что проверка SubItems.Count > 1 слишком слабая

---

← →
Garacio ©   (2007-01-17 09:49) [8]

Тогда, может кто-нибудь поможет организовать проверку:
Если в какой-то ячейке 2-го столбца в ListView (состоящего из 3-х столбцов) нет значения (пустая ячейка), то заполнить её "Нет файлов!"
P.S.</b 1-й столбец ListView весь заполнен, 3-й полностью пустой, 2-й заполнены только некоторые ячейки

---

← →
Сергей М. ©   (2007-01-17 11:11) [9]

> 2-го столбца

ListView.Items[i].SubItems[0]

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.045 c