| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Глюк TreeView?

Profi ©   (2005-08-28 17:59:00) 

Есть у меня заполненный treeview. Некоторым Item.data присвоены ссылки на строковые списки. В цикле я обращаюсь к каждому Item'у и если у него data<>nil присваиваю строки TStringList. Потом StringList очищаю. Иногда происходит повторное обращение к некоторым Item'ом. Data<>nil, но StringList ничего не присваивается.

Кто знает, в чем дело подскажите. Заранее спасибо!

---

Profi   (2005-08-29 13:45:00) [1]

Я уже все исправил. Спасибо за помощь.

---

icWasya   (2005-08-29 09:25:00) [2]

Смущает вот это

  Sp:=TStringList.Create;// 1
  if TreeView.Items[i].data<>nil then
    Sp:=TreeView.items[i].data // 2 может быть утечка

а потом вот это

Sp.Free; // 3

поясни логику

---

Digitman   (2005-08-29 09:15:00) [3]

>  При этом надо сохранить древовидность


это как ?

---

Profi   (2005-08-28 18:31:00) [4]

Код нужен для того, что бы удалять все Item'ы, в Data которых нет строки FileName. При этом надо сохранить древовидность. Когда находится Item, в котором есть FileName, он не удаляется. При удалении следующего Item'а цикл возвращается к предыдущему (из-за вложенности) и тогда-то и возникает AV при попытке

For i:=0 to SP.Count-1

Целый день бьюсь, может, просто глупую ошибку не вижу

---

begin...end   (2005-08-28 18:03:00) [5]

Покажите, как присваиваются ссылки на списки, и как потом производится обращение к ним через свойство Data.

---

Profi   (2005-08-28 18:03:00) [6]

TUser ©   (28.08.05 18:02) [1]
 Repeat
   inc(i);
   Sp:=TStringList.Create;
   if TreeView.Items[i].data<>nil then
     Sp:=TreeView.items[i].data
   else begin
     if TreeView.Items[i].getFirstChild=nil then begin
       If TreeView.Items[i].Parent.getFirstChild=TreeView.Items[i] then Begin
         TreeView.Items[i].Delete;
         i:=i-2;
       end else begin
         TreeView.Items[i].Delete;
         i:=i-1;
       end;
     end;
     Continue;
   end;
   est:=false;
   if Sp.Count<0 then continue;
   For j:=0 to Sp.Count-1 do
     if pos(FileName,Sp.Strings[j])>0 then begin
       est:=true;
       Break;
     end;
     if not est then begin
       if TreeView.Items[i].getFirstChild=nil then begin
         If TreeView.Items[i].Parent.getFirstChild=TreeView.Items[i] then Begin
           TreeView.Items[i].Delete;
           i:=i-2;
         end else begin
           TreeView.Items[i].Delete;
           i:=i-1;
         end;
       end else
         TreeView.Items[i].Data:=nil;
     end;
   Sp.Free;
 Until i>=TreeView.Items.Count-1;

Изврещен до безобразия. Я просто пытался исключить повторное чтение уже прочитанных Item'ов.

---

TUser   (2005-08-28 18:02:00) [7]

Код покажи.

---

Наверх