Главная страница
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.044 c
15-1171353990
xayam
2007-02-13 11:06
2007.03.11
Правильное завершение программы


2-1171877260
john_mag
2007-02-19 12:27
2007.03.11
компонент TMenu


2-1171716285
@gent
2007-02-17 15:44
2007.03.11
Дирректория запуска программы.


3-1166179693
Vlad Oshin
2006-12-15 13:48
2007.03.11
select from select как сделать правильно?


2-1172051723
Максимус
2007-02-21 12:55
2007.03.11
Связанные таблицы