Добавление и удаление атрибутов узлов (вершин) в XML в Delphi (с использованием компонента TTreeView)

Предыдущая статья на тему — "Добавление и удаление вершин в XML (визуализация с помощью TTreeView)".

Продолжаю развивать начатую тему про редактирование XML. Сегодня будем добавлять и удалять атрибуты узлов.

Для этого создадим контекстное меню и привяжем его к объекту TValueListEditor, расположенному на закладке Attributes (исходники полученной на ранних этапах заготовки можно скачать). Напомню, что атрибуты и их значения попадают в ValueListEditor благодаря следующему участку кода в обработчике события OnClick экземпляра компонента TTreeView:

try
  ValueListEditor.Strings.Clear;
  for i := 0 to iNode.AttributeNodes.Count -1 do
    ValueListEditor.InsertRow(iNode.AttributeNodes[i].NodeName,
                              iNode.AttributeNodes[i].Text,true);
except
end;

В меню создаем 2 пункта (Insert и Delete) и прописываем в их обработчиках:

procedure TMainF.insert1Click(Sender: TObject);
var
  S : String ;
begin
  if CurrNode = nil then exit;
  if CurrNode.ParentNode = nil then exit;
    S := InputBox('Введите имя атрибута:','Введите имя атрибута:','');
  try
    if S <> '' then  ValueListEditor.InsertRow(S,'value',false);
  except
    ShowMessage('Такой атрибут уже существует');
  end;
end;

Сейчас при выборе insert в контекстном меню у нас будет такая картина:


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


Если делать все по-правильному, то при вводе названия атрибута надо бы проверять его на валидность (чтобы начиналось с буквенного символа, не включало недопустимые символы (пробелы и т.д.)). Но это уже детали, пока оставим так, как есть (при попытке добавить узел с невалидным именем будет эксепшн).

Для редактирования значений атрибутов напишем в обработчике OnStringsChange следующее:

procedure TMainF.ValueListEditorStringsChange(Sender: TObject);
var
  i : integer;
  AttName,
  AttValue : String;
begin
  for i := 0 to ValueListEditor.RowCount - 1 do
    begin
      try
        AttName := ValueListEditor.Keys[i];
      except
        AttName := 'attribute'+intToStr(i);
      end;
      try
        AttValue := ValueListEditor.Values[AttName];
      except
        AttValue := '';
      end;
      try
        if AttName <> '' then
          CurrNode.Attributes[AttName] := AttValue;
      except
      end;
    end;
end;

Ну и листинг процедуры удаления атрибута:

procedure TMainF.delete1Click(Sender: TObject);
var
  i : integer ;
  K : String ;
begin
  ValueListEditor.OnStringsChange := nil;
  i := ValueListEditor.Selection.Top;
  K := ValueListEditor.Keys[i];
  ValueListEditor.DeleteRow(i);
  CurrNode.AttributeNodes.Delete(K);
  ValueListEditor.OnStringsChange := ValueListEditorStringsChange;
end;

На этом закончу сегодняшнюю статью. Исходники выкладывать не имеет смысла, так как, по сути, нового добавила мало. На этом перечень основных операций с узлами и атрибутами иссякает. Остались только тюнинговые: изменение порядка узлов и атрибутов, копирование и вставка и т.д..
___

Чтобы быть в курсе обновлений блога, можно подписаться на RSS.

Статьи схожей тематики: