Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.041 c
2-1171977401
vitv
2007-02-20 16:16
2007.03.11
Ошибка при DBGrid12.SelectedField.FocusControl


11-1148133762
Fritz
2006-05-20 18:02
2007.03.11
Как сделать форму под стиль Windows XP???


5-1149663430
zorik
2006-06-07 10:57
2007.03.11
в TDataLink есть метод DataSetScrolled


2-1171658763
Norfolk
2007-02-16 23:46
2007.03.11
Использование системных переменных в имени файла


2-1171965546
Cara
2007-02-20 12:59
2007.03.11
OpenDialog





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский