Как в TreeView очистить все ветки?

← →
neXt2 (2003-02-06 10:01) [0]

Мастера, помогите, наверное вопрос уже всех задолбал, но не сердитесь...
Т.е. не Items.Clear, а Node.Delete? Я очень часто перестраиваю дерево Items.Clear не очищяет память, а Node.Delete - делает, но как удалить все корни, я про них не знаю...

← →
Song © (2003-02-06 12:23) [1]

Ну так тогда в цикле

← →
Digitman © (2003-02-06 12:56) [2]

> Я очень часто перестраиваю дерево Items.Clear не очищяет
> память

Именно потому, что ты часто перестраиваешь дерево, следует пользоваться Items.Clear. В этом случае не будет непроизводительных расходов на бесконечную реаллокацию памяти из-за удаления/вставки узлов.

← →
neXt2 (2003-02-06 13:03) [3]

Access violation ... выскакивает после нескольких запусков проги... Использую Items.Clear;

← →
Digitman © (2003-02-06 13:09) [4]

> Access violation ... выскакивает

И что ? Тебе при этом явно говорится, что это из-за Items.Clear ?

ты хоть вникал в полный текст сообщения об AV ?

← →
neXt2 (2003-02-06 13:13) [5]

AV at address 004869DE in module "Projeckt1.exe". Read address 00000004.

← →
Digitman © (2003-02-06 13:14) [6]

вот и проси дебагер, чтобы он показал тебе строчку, на который ты получаешь AV !

см. Search | Find Error ...

там и вводи это самый 004869DE

← →
gsu © (2003-02-06 13:15) [7]

критический код на базу ...

← →
neXt2 (2003-02-06 13:19) [8]

TFields.FindField ...mov eax,[ebp+$04]
И что? Что с этим делать? Получается ошибка с БД. Ну и какого ...? БД я юзаю, дерево на основе БД.

← →
Skier © (2003-02-06 13:20) [9]

>neXt2
Код в студию !

← →
gsu © (2003-02-06 13:22) [10]

>> neXt2 (06.02.03 13:19)
>> Skier © (06.02.03 13:20)
Только не все 250 модулей (-:|~

← →
neXt2 (2003-02-06 13:23) [11]

А что именно?

← →
Digitman © (2003-02-06 13:23) [12]

вот видишь !
Items.Clear здесь совершенно ни при чем)

какая-то лажа у тебя при работе с объектами БД

← →
neXt2 (2003-02-06 13:27) [13]

БД IBDatabase->IBTrasaction->IBDataset.
Вот я проверяю все время в этой штуке:
TFields.FindField ...mov eax,[ebp+$04]

← →
Digitman © (2003-02-06 13:30) [14]

чего проверяешь-то ? Это что, твой СОБСТВЕННЫЙ код ??
TFields.FindField ???

← →
neXt2 (2003-02-06 13:30) [15]

Когда я создаю детеныша с датой, то вот в дату я пишу -
Pointer(FieldByName("id").AsInteger)

← →
jack128 © (2003-02-06 13:31) [16]

2 neXt2
как предположение: ты результат FindField на nil проверяешь?

← →
Digitman © (2003-02-06 13:32) [17]

FieldByName("id").AsInteger какого объекта ???

← →
neXt2 (2003-02-06 13:32) [18]

> Digitman © (06.02.03 13:30)
> чего проверяешь-то ? Это что, твой СОБСТВЕННЫЙ код ??
> TFields.FindField ???

галочка View CPU Window.
TFields.FindField - это чуть выше...

← →
neXt2 (2003-02-06 13:34) [19]

> Digitman © (06.02.03 13:32)
> FieldByName("id").AsInteger какого объекта ???

IBDataset

← →
Digitman © (2003-02-06 13:35) [20]

значит, не существует либо полt "id" либо объект IBDataSet

← →
neXt2 (2003-02-06 13:38) [21]

и то существует, и то.
Ошибка при не существовании была бы сразу при построении дерева, а то дерево строится, перестраивается,а при закрытии формы - глюк.

← →
gsu © (2003-02-06 13:39) [22]

>> Digitman © (06.02.03 13:09)
какой же вы терпеливый (-:|~

← →
Digitman © (2003-02-06 13:43) [23]

> и то существует, и то.

глядя на приведенный тобой код, показанный дебагером, уверяю тебя - проблема с несуществованием одного из объектов БД !

> а то дерево строится, перестраивается

Давай еще в "угадайку с 3-х раз" поиграем, с недельку так примерно, чего у тебя там "строится, перестраивается"..

я буду угадывать твой код - мне это ооооочень нужно ! - а ты будешь радостно так говорить всякий раз "не-а, снова не угадал !"

))

← →
FLIZ © (2003-02-06 14:02) [24]

в натуре, давай сюда нам код а так клоунада какая-то.
насколько я работал с деревьями ТриВью - ничего там плохого
не происходит при работе с узлами, ну т.е. при ИтемсКлеар
и прочем никаких баг Дерева нету. это у тебя в коде
что-то не так и ошибка тобою создана. и компонент ТриВью
тут точно не причем. код в студию!

← →
neXt2 (2003-02-06 14:27) [25]

Вот построение ветки:
procedure TfMain.ExpendLevel(Node:TTreeNode); var ID:integer; ChildNode:TTreeNode; begin if Node = nil then ID := 0 else ID := Integer(Node.Data); with dm.qName do begin Close; ParamByName("PARENT_ID").AsInteger := ID; Open; First; with tree.Items do begin BeginUpdate; while not Eof do begin ChildNode:=AddChildObject(Node , FieldByName("name").AsString, Pointer(FieldByName("id").AsInteger)); if FieldByName("child_cnt").AsInteger>0 then begin ChildNode.ImageIndex := 1; ChildNode.SelectedIndex := 0; AddChild(ChildNode,""); end else begin ChildNode.ImageIndex := 2; ChildNode.SelectedIndex := 2; end; Next; end; //while EndUpdate; end; end; end;

← →
neXt2 (2003-02-06 14:30) [26]

Вот перестройка дерева:
procedure TfMain.ReBildTree; begin tree.Items.Clear; ExpendLevel(nil); tree.Items[0].Selected := true; end;

← →
neXt2 (2003-02-06 14:31) [27]

Раскрытие ветки:
procedure TfMain.treeExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); begin if Node.getFirstChild.Data = nil then begin Node.DeleteChildren; ExpendLevel(Node); end; end;

← →
Skier © (2003-02-06 14:33) [28]

ChildNode:=AddChildObject(Node , FieldByName("name").AsString,
Pointer(FieldByName("id").AsInteger)); - очень подозрительно !

AddChild(ChildNode,""); ?
У тя лишний узел появляется. И что будет если по нему кликнут?
Лудше сделать так ChildNode.HasChildren := True;

>>при закрытии формы - глюк.

и что делается при закрытии формы ?

p.s. ты вообще в курсе, что в Паскале есть конструкции try..finally, try..except ?

BeginUpdate;
// здесь - твой "глюк", к примеру, произошел
EndUpdate; // эта строчка при "глюке" выполнена не будет !

← →
neXt2 (2003-02-06 14:38) [31]

> jack128 © (06.02.03 14:33)
> AddChild(ChildNode,""); ?
> У тя лишний узел появляется. И что будет если по нему кликнут?

Если этого не показать, то не видно что дети, про
ChildNode.HasChildren := True я не знал :(

> Digitman © (06.02.03 14:34)
> >>при закрытии формы - глюк.
>
> и что делается при закрытии формы ?
>
> p.s. ты вообще в курсе, что в Паскале есть конструкции try..finally,
> try..except ?

конечно знаю, но тут я пока разбираюсь, и пока там глюка не было.

← →
neXt2 (2003-02-06 14:39) [32]

← →
neXt2 (2003-02-06 14:43) [33]

> Skier © (06.02.03 14:33)
> ChildNode:=AddChildObject(Node , FieldByName("name").AsString,
> Pointer(FieldByName("id").AsInteger)); - очень подозрительно
> !

Что именно подозрительно?

я не знаю сколько у тя кода в модуле, но
я в таких слючаях комментировал участки кода и смотрел
глюк проявился или нет. Таким образом локализововал ошибку...

2 neXt2, Digitman а вообще для таких разговоров есть чат

как это "ничего" ? компоненты доступа к БД лежат на форме ? перед разрушением формы они разрушаются, и если в этот момент ты там чего-то творишь со своим деревом (вероятно, вызываешь ExpendLevel() в каком-то внешнем цикле, где присутствует Application.ProcessMessages), вот эти "грабли" тебя и лупят в одну и ту же шишку))

как это "ничего" ? компоненты доступа к БД лежат у тебя на форме ? перед разрушением формы они разрушаются, и если в этот момент ты там чего-то творишь со своим деревом (вероятно, вызываешь ExpendLevel() в каком-то внешнем цикле, где присутствует Application.ProcessMessages), вот эти "грабли" тебя и лупят в одну и ту же шишку)) с завидной причем регулярностью)))

> jack128

"А ты кто такой ?"
(с) М.С.Паниковский, "человек без паспорта"

>neXt2 (06.02.03 14:43)
А ты подумай как ты освобождать данные для узла будешь.
Все же рухнет !

← →
neXt2 (2003-02-06 14:58) [40]

Как в TreeView очистить все ветки? Найти похожие ветки