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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.07.2007, 12:06   #1
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
Злость Работа с TreeView. Помогите найти ошибку.

Здраствуйте. Спасибо что заглянули сюда.

Работаю с TreeView. Дерево создается програмно, на основе файла записи (record'a). Который имеет такой вид:

категория;
артикул;
наименование;
цена;

Сначала создается одноуровневое дерево по названиям категорий, например:

одежда
одежда
одежда
инструменты
инструменты
инструменты
обувь
обувь

Потом в цикле все совпадающие названия категорий (кроме одной) должны удаляться. К оставшейся уникальной категории уже присоединяются новые дочерние узлы.

Должно было получится так:
одежда
шапка
футболка
инструменты
тесак
скальпель
обувь
кеды

Но...

Вложение 832

При пошаговом выполнении показывает, что узел
TreeView2.Items.Item[j+1].text равен мусору $30BF985
Эта ошибка появляется при просмотре примерно половины элементов.

Вложение 831

Код:

j:=1;
fl:=1;
while fl<>0 do
Begin
if TreeView2.Items.Item[j].text=TreeView2.Items.Item[j+1].text then
TreeView2.Items.Item[j].Delete;
else
j:=j+1;
if j=CountCategory then fl:=0;
end;
end;

Помогите кто чем может!!! Заранее спасибо!
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума Ответить с цитированием
Старый 20.07.2007, 12:21   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

http://delphi.pp.ru/index.php?autoco...d=article&id=1
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 20.07.2007, 12:31   #3
Net
;-)
Пользователь
 
Регистрация: 18.07.2007
Сообщений: 69
По умолчанию

У вас цикл от нуля. сделайте наоборот, от CountCategory до нуля.
а еще лучше так, как по ссылке от Квэнди.
Net вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите найти ошибку! Студентка@ Помощь студентам 3 21.05.2008 14:21
Помогите найти ошибку N!ckeL Общие вопросы Delphi 9 05.05.2008 14:15
Помогите найти ошибку NeiL Общие вопросы Delphi 7 04.03.2008 07:14
Помогите найти ошибку Рената Паскаль, Turbo Pascal, PascalABC.NET 2 05.01.2008 04:29
help!!! Помогите найти ошибку!!! linker13 Общие вопросы Delphi 2 07.07.2007 23:15