Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.11;
Скачать: 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 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.045 c
3-1166092044
Alex1884
2006-12-14 13:27
2007.03.11
Не могу сделать связьмежду ComboBox и базой данных


2-1171982524
Sapos
2007-02-20 17:42
2007.03.11
DBEdit


2-1171643622
sat
2007-02-16 19:33
2007.03.11
delay??


15-1171562699
default
2007-02-15 21:04
2007.03.11
Кто писал программы наподобие ERwin и Rational Rose


2-1171959306
vitv
2007-02-20 11:15
2007.03.11
DBGrid11CellClick(Column: TColumn);-вопрос реализации