Скачать: CL | DM;

XML + TreeView   Найти похожие ветки 

← →
TRSteep ©   (2009-01-14 13:38) [0]

Не могу понять как сохранить TreeView (с доп параметрами) в XML и загрузить его потом.
Единственное что пока понял

 XDoc := TXMLDocument.Create(application);
 XDoc.Active := true;
 XDoc.Version := "1.0";
 XDoc.Options := XDoc.Options + [doNodeAutoIndent];

 //Top level
 TopNode := XDoc.Node.AddChild( TreeView.Items.Item[0].Text );

 for I := 1 to TreeView.Items.Count - 1 do
 begin
   TopNodeChiled := TopNode.AddChild( TreeView.Items.Item[i].Text );
 end;

 tmpNode := TopNodeChiled.AddChild( LabeledEdit_NameSoft.Text );
 tmpNode.SetAttribute("Version", LabeledEdit_Version.Text  );

но так просто создает каждый раз дочерний объект и все.

Хотелось бы сохранение XML по структуре такой же как TreeView
но при выделении какого то Node из TreeView грузилась соответствующая инфа и сохранялась при изменении.

Сложность для меня в том что не понимаю как в цикле создать нужную вложенность.
и еще сканируешь TreeView подряд ( еще нашел как вложенность можно проверить TreeView.Items.Item[i].Level = 1 :), а сохранять XML пока умею только от конкретного родителя...

Не подскажите как тут сделать?

---

← →
Медвежонок Пятачок ©   (2009-01-14 14:20) [1]

Сложность для меня в том что не понимаю как в цикле создать нужную вложенность.

тогда причем здесь xml?

---

← →
Медвежонок Пятачок ©   (2009-01-14 14:24) [2]

function EnumNode(ANode : TTreeNode) : interger;
begin
for i := 0 to чайлдкаунт ду
 begin
  СэйвЧайлдноде(i)
  if Чайлдноде(i).ЧайлдКаунт > 0 then EnumNode(Чайлдноде(i));
 end;
end;

---

← →
TRSteep ©   (2009-01-14 15:18) [3]

> тогда причем здесь xml?

просто может какие то комманды есть. я не знаю.

> if Чайлдноде(i).ЧайлдКаунт > 0

не знал. спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c