Работа с TreeView. Помогите найти ошибку. - Компоненты Delphi

AlDelta · 20.07.2007, 12:06

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

Работаю с 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;

Помогите кто чем может!!! Заранее спасибо!

Квэнди · 20.07.2007, 12:21

http://delphi.pp.ru/index.php?autoco...d=article&id=1

Net · 20.07.2007, 12:31

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

20.07.2007, 12:06	#1
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"

20.07.2007, 12:21	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	http://delphi.pp.ru/index.php?autoco...d=article&id=1 ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите найти ошибку!	Студентка@	Помощь студентам	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

20.07.2007, 12:31	#3
Net ;-) Пользователь Регистрация: 18.07.2007 Сообщений: 69	У вас цикл от нуля. сделайте наоборот, от CountCategory до нуля. а еще лучше так, как по ссылке от Квэнди.