Главная страница
    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.037 c
15-1170880896
ZiTRaX
2007-02-07 23:41
2007.03.11
Размер exe-шника С/С++ - и Pascal - компиляторов


15-1171487412
ProgRAMmer Dimonych
2007-02-15 00:10
2007.03.11
Была в своё время передача "Красная стрела"...


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


15-1171518389
TUser
2007-02-15 08:46
2007.03.11
Хранение ссылок на сайты


6-1158902135
Николас
2006-09-22 09:15
2007.03.11
Серьезный TCP сервер.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский