|
Вопрос # 4 132/ вопрос открыт / |
|
Доброго утро!
Мне необходимо, чтобы добавляя узел в Treeview, он добавлялся сразу за выделенным узлом, а не первым или последним. При том что потом его необходимо сохранить в XML файл. Просто в дереве я сделала, а вот чтобы работать с XML-документом не получается. За ранее благодарю.
В фрагменте программы представлена процедура добавления узла на тот же уровень с выделенным.
Приложение: Переключить в обычный режим- procedure TMainF.acAddNodeExecute(Sender: TObject);
- var
- idx : integer ;
- S : String ;
- xN : IXMLNode ;
- trN : TTreeNode ;
- R : TNodeRec ;
- begin
- if CurrNode = nil then CurrNode := XDoc.Node;
-
- if S <> '' then
- begin
- try
- xn := CurrNode.ParentNode.AddChild(S);
- trN := TreeView.Items.AddChildObject(TreeView.Selected.Parent,S,
- pointer(xn.ParentNode.ChildNodes.IndexOf(xn)));
- R := TNodeRec.Create;
- R.XMLNode := xn;
- R.TreeNode := trN;
- idx := CurrentNodeListIndex;
- if idx = -1 then idx := 0;
- XDocNodesList.Insert(idx,R);
- except
- end ;
- end ;
-
 |
Вопрос задала: kitten999 (статус: Посетитель)
Вопрос отправлен: 8 мая 2010, 09:50
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 8 мая 2010, 12:12; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 8 мая 2010, 11:25 [#1]:
Я могу тебе помочь, но для этого ты должна мне довериться и быть готовой похерить свой код и написать всё заново на основе кода, который я тебе дам. Обещаю, что всё будет быстро, красиво и качественно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
kitten999 (статус: Посетитель), 8 мая 2010, 12:03 [#2]:
Без проблем, я уже много раз с начала начинала.
|
|
|
min@y™ (статус: Доктор наук), 8 мая 2010, 12:12 [#3]:
Тогда для начала скачай компонент TECXMLParser. Там в архиве должны быть примеры сохранения и загрузки древовидной структуры.
Затем дай мне свой мыл, я тебе скину парочку своих модулей для работы с этим компонентом.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
