Txmldocumentot használunk
Add hozzá egy új modult Fájl-> Új-> Egység a projekthez. Itt ismertetjük azokat az eljárásokat és funkciókat, amelyek nem kapcsolódnak az interfészhez és a globális változókhoz. Az első a híradatbázis betöltésének funkciója. Minden hír XML formátumban lesz tárolva.
LoadXMLBase funkció (tulajdonos TComponent). logikai;
kezdődik
Eredmény: = hamis;
XMLDoc: = TXMLDocument.Create (tulajdonos);
ha a FileExists ('news.xml') megkezdődik
XMLDoc.FileName: = 'news.xml';
Eredmény: = igaz;
végén pedig MessageDLG ( 'Nem található hír adatbázis fájl', mtError [mbOK], 0);
végén;
Mentse a fájlt a mappába a programban. Ez az első alkalom, hogy a program írásakor a struktúra véglegesítésre kerül.
Most meg kell tanulnod, hogy töltsd le az adatokat egy fájlból a hírfára. Ehhez a következő eljárást írjuk le:
eljárás LoadTree (fa TTreeView);
var
i. integer;
Node. IXMLNode;
kezdődik
xmlDoc.Active:=true;
i: = 0 XMLDoc.DocumentElement.ChildNodes.Count - 1 do kezdődik
Csomópont: = XMLDoc.DocumentElement.ChildNodes [i]; AddTreeNode (fa, Node.ChildNodes [ 'csoport'] .text, Node.ChildNodes [ 'name'] .text);
végén;
xmldoc.Active:=false;
végén;
Az eljárás paraméterünket elfogadja a fa számára, és csomópontokat ad hozzá hozzá. Végiglépked a gyermek csomópontok egy dokumentumot, a szám tárolva van a kommunikáció-ve XMLDoc.DocumentElement.ChildNodes.Count Ahogy AddTreeNode második eljárás használ egy eljárást, amely úgy két-paraméter Node.ChildNodes [ „csoport”]. A szöveg és Node.ChildNodes [ ' Név "], majd a fa csomópontjaihoz hozzáadja azokat. Miért ez a kód kerül egy külön eljárás - fogok beszélni később. Közben nézni a szöveget az eljárás:
eljárás AddTreeNode (fa .TreereeView; sGroup, sName string);
var
j. integer;
tnd. TTreeNode;
találni. logikai;
kezdődik
ha sGroup = '', akkor tnd: = null
mást kezdeni
találja: = false;
j: = 0 a tree.Items.Count-1 elkezdődik
ha a tree.Items.Item [j] .Text = sGroup, akkor kezdődik
tnd: = tree.Items.Item [j];
find: = igaz;
break;
végén;
végén;
ha nem talál, akkor tnd: = tree.Items.AddChild (nulla, sGroup);
végén;
tree.Items.AddChild (tnd, sName);
végén;
AddTreeNode eljárás nagyon egyszerű: itt ellenőrizheti a paraméter értékét sGroup. ha üres, akkor adja hozzá a csomópontot a nulla szinthez. Ha ez az opció be van állítva, keresi gazda egyaránt megfelel a nulla szintet, és adjunk hozzá, ha egy gyerek. Ha nincs ilyen értékű csomópont, létrehozzuk. Ily módon a hírcsatornák csoportosítása valósul meg.
Most hozza létre az OnCreate eseménykezelőt a fő űrlapra. Ez így néz ki:
TRSSReaderV2.FormCreate eljárás (Sender: TObject);
kezdődik
ha a LoadXMLBase (self) megkezdődik
LoadTree (NewsList);
végén;
végén;
Futtassa a programot (F9). Ezt kell megtenni.
