Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.10.2013, 20:09   #1
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
По умолчанию Обход ошибки ListView

есть listview, заполненный конечно (3 строки, например)... в обработчике OnClick есть код например:
Код:
form1.Caption:=ListView1.Selected.Caption
как только нажимаю на место, где нет записи (пример 4 строка) выскакивает ошибка:

Пытался сделать вот так:
Код:
begin
if ListView1.Selected.Index <= ListView1.Items.Count-1 then
  form1.Caption:=ListView1.Selected.Caption
else
  form1.Caption:=('не туда');
end;
но тоже самое... дайте совет как обойти эту ошибку



Другими словами: появление ошибки, при нажатии на несуществующую строчку listview
Исходники программ - http:\\www.kort.3dn.ru

Последний раз редактировалось KORT; 26.10.2013 в 20:12.
KORT вне форума
Старый 26.10.2013, 20:20   #2
ReportCube
Форумчанин
 
Аватар для ReportCube
 
Регистрация: 11.03.2011
Сообщений: 426
По умолчанию

if ListView1.Selected <> nil
ReportCube вне форума
Старый 26.10.2013, 20:21   #3
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,926
По умолчанию

Цитата:
при нажатии на несуществующую строчку listview
Проверяйте ListView1.Selected <> nil
northener вне форума
Старый 26.10.2013, 20:22   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
begin
if ListView1.ItemIndex<0 then Exit;
if ListView1.Selected.Index <= ListView1.Items.Count-1 then
  form1.Caption:=ListView1.Selected.Caption
else
  form1.Caption:=('не туда');
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Старый 26.10.2013, 20:31   #5
KORT
Вот я и
Форумчанин
 
Аватар для KORT
 
Регистрация: 07.04.2007
Сообщений: 501
По умолчанию

Цитата:
Сообщение от ReportCube Посмотреть сообщение
if ListView1.Selected <> nil
спс помогли...
Исходники программ - http:\\www.kort.3dn.ru
KORT вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обход в ширину с++ Нужно понять ошибки. freelifekzn Помощь студентам 6 16.01.2013 21:51
ошибки в троках ListView KWN, lnc Общие вопросы Delphi 11 11.04.2011 19:23
ошибки в cтроках ListView KWN, lnc Общие вопросы Delphi 0 11.04.2011 12:55
обход ошибки List index out of bounds (0) Яр|/||< (^_^) Общие вопросы Delphi 3 29.06.2009 12:45
Ошибки при переходе с ListBox на ListView Shouldercannon Общие вопросы Delphi 12 21.03.2009 10:03