Как в 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)); - очень подозрительно !

← →
jack128 © (2003-02-06 14:33) [29]

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

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

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

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

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]

> Digitman © (06.02.03 14:34)
> >>при закрытии формы - глюк.
>
> и что делается при закрытии формы ?

ничего.

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

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

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

← →
jack128 © (2003-02-06 14:43) [34]

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

← →
jack128 © (2003-02-06 14:45) [35]

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

← →
Digitman © (2003-02-06 14:48) [36]

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

← →
Digitman © (2003-02-06 14:51) [37]

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

← →
Digitman © (2003-02-06 14:54) [38]

> jack128

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

← →
Skier © (2003-02-06 14:57) [39]

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

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

2 Digitman ©
Спасибо что помогаешь.
я использую DataModule. А Application.ProcessMessages я не использую...

← →
neXt2 (2003-02-06 15:00) [41]

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

Я же и сначала и задавал такой вопрос -смотри САБЖ. Говорят Items.Clear должен работать.

← →
Digitman © (2003-02-06 15:00) [42]

> jack128 © (06.02.03 14:43)
> я в таких слючаях комментировал участки кода и смотрел
> глюк проявился или нет. Таким образом локализововал ошибку...
>

ну и плохо ! схему/последовательность событий в приложении, даже не использующем компоненты, и встр.дебагер как наипервейший инструмент для отладки Делфи-приложений нужно знать как "Отче наш"... А поиск "глюков" вслепую никогда не избавит от "глюков"

← →
Skier © (2003-02-06 15:03) [43]

>neXt2
Зависит от того используешь ли ты потом данные для узла, если да то обрушения не избежать.

← →
jack128 © (2003-02-06 15:04) [44]

В данном случае дебагер видимо непомог...

← →
Digitman © (2003-02-06 15:05) [45]

> neXt2

долго еще будем играться в бирюльки ? приводи код, вызывающий ExpendLevel()... и более ранний, т.е. верхнеуровневую процедуру, с которой начинается вся эта "химия" по построению дерева

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

> Skier © (06.02.03 15:03)
> >neXt2
> Зависит от того используешь ли ты потом данные для узла,
> если да то обрушения не избежать.

Да использую:
procedure TfMain.treeСhange(Sender: TObject; Node: TTreeNode); var ID : integer; begin with (Sender as TTreeView) do if Selected <> nil Then begin with dm.qRate do begin Close; ParamByName("ID").AsInteger := Integer(Selected.Data); Open; end; end;//if and with end;

← →
Skier © (2003-02-06 15:09) [47]

>neXt2
Горе тебе ! :)

← →
Digitman © (2003-02-06 15:12) [48]

кр.того, непонятно, почему

AddChild(ChildNode,""); ?

соданный таким образом узел будет иметь Data = nil

← →
neXt2 (2003-02-06 15:14) [49]

> Digitman © (06.02.03 15:05

Отсалось только:
procedure TfMain.DBGridCellClick(Column: TColumn); begin ReBildTree; end;

← →
neXt2 (2003-02-06 15:16) [50]

> Digitman © (06.02.03 15:12)
> кр.того, непонятно, почему
>
> AddChild(ChildNode,""); ?

я уже сделал ChildNode.HasChildren := True

← →
Digitman © (2003-02-06 15:17) [51]

> neXt2

Охх)... ну давай сюда и ReBildTree() , до кучи)

← →
Skier © (2003-02-06 15:18) [52]

>neXt2
Ну...короче заносить строку нужно примерно так :

type
PString = ^String;
var
AStr : PString;
begin
//...............
New(AStr);
AStr^ := Pointer(FieldByName("id").AsInteger);
ChildNode:=AddChildObject(Node , FieldByName("name").AsString, AStr);
//...............

← →
neXt2 (2003-02-06 15:19) [53]

Я уже все привел, этот код выше.

← →
Digitman © (2003-02-06 15:20) [54]

> я уже сделал ChildNode.HasChildren := True

А это здесь причем ? Насколько я понял, каждый добавляемый узел у тебя в Data обязан содержать уник.идентификатор.
В случае с AddChild() ты всегда получишь Data = 0 (nil)

← →
neXt2 (2003-02-06 15:21) [55]

2 Skier © (06.02.03 15:18)
а как потом оттуда считывать?

← →
Oleon © (2003-02-06 15:21) [56]

я не понял, что-то очень много всего понаписали...

у него в Data записано что-то постоянно, он удаляет Node а ссылки остаются...

вот, наверное, из-за этого и весь гемморой...

почему вы не воспользовались советом от Song?

>>Song © (06.02.03 12:23)
>>Ну так тогда в цикле

← →
Skier © (2003-02-06 15:22) [57]

>neXt2
Поправка :
AStr^ := FieldByName("id").AsString;
Если используешь AsInteger, то объяви PInteger = ^Integer и дальше по анологии...

← →
neXt2 (2003-02-06 15:22) [58]

> Digitman © (06.02.03 15:20)
>
> > я уже сделал ChildNode.HasChildren := True
>
>
> А это здесь причем ? Насколько я понял, каждый добавляемый
> узел у тебя в Data обязан содержать уник.идентификатор

только те кто не имеет детей.

← →
Skier © (2003-02-06 15:24) [59]

>neXt2 (06.02.03 15:21)
Если строка то :
if Node.Data <> nil then
ASomeStrVar := PString(Node.Data)^;
Если целое то :
ASomeIntVar := PInteger(Node.Data)^;

пройтись циклом и везеде для каждого NODe сделать Free, а потом Nil...

for i := Node.count downto - 1 downto 0 do
Begin
Node.Item[i].Free;
Node.Item[i].Data := nil;
End;

разве так нельзя написать? или что-то типа того,

P.S. вопрос явно не тянет на столько ответов)))))

> Skier

да целое у него оно)
использует как перв.ключ записи в НД

вполне достаточно Integer(Node.Data)

>Digitman
Если целое, то достаточно. Согласен.

> только те кто не имеет детей.

непонятно.
узел, не имеющий "детей", не имеет первич.ключа ?
а если юзер сделает его Selected ? ты ж тут же начинаешь читать его data (там - 0) и тут же запрос выполняешь для parentkey = 0. В результате - хрень несусветная

>neXt2
Если данные для узла - просто целое число (как у тебя), то
всё правильно- выделение памяти не нужно, хватит и кастинга.
Не туда зарулил...Sorry !

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

Skier, Digitmen вы не тем занялись...

← →
neXt2 (2003-02-06 15:40) [66]

У меня при ввыборе узла, должен открыватся НД тогда, когда это конец ветки(т.е. тот кто не имеет детей).

Так что мне делать?

Что мне при onDestroy DataModule закрывать IBDataset и чистить дерево(Node.Data := nil)?

> Oleon

Нет здесь никакой утечки памяти. Не выдумывай.

> neXt2 (06.02.03 15:40)
> У меня при ввыборе узла, должен открыватся НД тогда, когда
> это конец ветки(т.е. тот кто не имеет детей).

опять же - неверно !
откуда ты знаешь, конец это ветки или не конец ?
ты для чего НД в запросе формируешь ? как раз чтобы отразить изменения, произошедшие в базе с записями, ассоциируемыми тобой с данным узлом и возможно имеющимися у него на дан.момент дочерними узлами, после последнего обновления дерева

← →
neXt2 (2003-02-06 15:50) [68]

2 Digitman ©
У меня есть поле child_cnt, если =0 конец, >0 - нет
В neXt2 (06.02.03 14:27) есть присутсвие это елемента.

а если эта запись удалена уже ?

← →
neXt2 (2003-02-06 16:25) [70]

Ее можно удалить только из этого дерева, т.е. конечно может програмер залезть и в *.gdb поправить, но не юзер. И еще у меня тригеры стоят, сами считают сколько детей.

это чего такое получается ? ты пользуешь IB SS для одного-единственнгого клиента ? не жирно будет ?

← →
neXt2 (2003-02-06 16:40) [72]

Нет, не для одного, просто в этой *.gdb не только эти данные(они как вспомагательные идут), а вообще это БД для Отдела труда и з/п
Там и штатное, и кадры, и норма по операциям(эта задача).

← →
neXt2 (2003-02-06 16:46) [73]

Убрал DataModule вроде работает...

← →
neXt2 (2003-02-06 16:54) [74]

Да! работает!!!

> Убрал DataModule вроде работает...

я ж тебе сразу сказал - смотри за порядком событий, связанных с разрушением форм/модулей данных при завершении приложения !

> Нет, не для одного

вот и представь себе - два юзера юзают одновременно твое дерево ..
один добавил узел, другой, обновив свое, увидел этот узел и удалил его, а заодно и родит.узел

теперь первый юзер сподобился щелкнуть на уже удаленном в этот момент узле..

> теперь первый юзер сподобился щелкнуть на уже удаленном
> в этот момент узле..

Ты про try..except..end? Сделаю.

>
> Digitman © (06.02.03 16:55)
>
> > Убрал DataModule вроде работает...
>
>
> я ж тебе сразу сказал - смотри за порядком событий, связанных
> с разрушением форм/модулей данных при завершении

Я так понимаю, node.Data ссылается на данные в DataModule. Она разрушается первой. А как сделать чтобы DataModule разрушалось последней? Наверное я написал бред...

Упс ! Уже реинкарнация приключилась) <neXt2> to <Соловьев>)

> Ты про try..except..end? Сделаю.

Я ему про фому, он - про ерему)

try .. finally/except - это безусловно, но упомянул я это по другому поводу ... ты хоть прочитай, о чем я там)

щелчек на узле у тебя зачем отрабатывается ? чтобы детей узла обновить визуально ? а если самого узла (в таблице !) уже нет - о каких его детях речь может идти ?

> node.Data ссылается на данные в DataModule

Это каким же образом ? ты ж в Data что пишешь ? просто - число некое, не более того ... число это - просто некое значение некоего перв.ключа некоей записи

> как сделать чтобы DataModule разрушалось последней

смотря как ты создаешь этот DataModule
от этого зависит и контроль за порядком (либо принудительное осуществление) его разрушения

В *.dpr:
MainForm.Create;
DM.Create;

ну а почему же не поменять местами ?

и - кто владелец компонента DM ?

> и - кто владелец компонента DM ?

Не понял что ты имеешь в виду?

О-хо-хооо) ..

Начали за здравие, кончили за упокой)

Давай точный код из DPR

Я переставил местами - работает! Блин, сколько, времени у тебя отнял, извини... Спасибо, что помогал. Буду дальше колбасить :)
Может я тоже выросту до таких как ты...

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