Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.05.2010, 10:05   #1
Анастасия999
Новичок
Джуниор
 
Регистрация: 16.01.2010
Сообщений: 2
По умолчанию Добавление узлов в XML в Delphi, исользуя Treeview

Доброе утро. Помогите кто сможет. Мне необходимо, чтобы когда добавлялся узел, он добавлялся не в конец, а сразу за выделенный узел. Просто в дереве это не сложно, а вот используя 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;
  S := InputBox('Добавить новый узел на один уровень с "' + CurrNode.NodeName+ '"','имя узла:','');
  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
;

Последний раз редактировалось Stilet; 08.05.2010 в 11:44.
Анастасия999 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка узлов дерева treeview gool Общие вопросы Delphi 1 06.11.2009 09:20
XML в Delphi 7 Mutagena Общие вопросы Delphi 17 09.10.2009 16:29
вывод xml данных из TreeView в webbrowser Dr.XxX Общие вопросы Delphi 1 10.10.2008 12:06
Поиск узлов в TreeView Ko$tello Компоненты Delphi 1 14.11.2006 17:18
Сохранение и загрузка узлов TreeView из базы данных Ko$tello Компоненты Delphi 1 14.11.2006 17:15