Форум: "Основная";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];
Внизнайти пустые ячейки в третьем столбце 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 вся ветка
Форум: "Основная";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c