Hirdetés

Hozzászólok Aktív témák

  • Alan

    aktív tag

    válasz corm #488 üzenetére

    Hát... ehhez én első lépésben a TXMLDocument komponenst ajánlom (Internet fül a komponenspalettán). Nem vészesen bonyolult a használata, itt egy kis példa neked kiollózva egy régebbi programomból:

    procedure AddNodesToTree(From: IXMLNode);
    var i: integer;
    CurrentXMLNode: IXMLNode;
    begin
    for i := 0 to From.ChildNodes.Count-1 do
    if From.ChildNodes[ i ].NodeName = 'keresettcimke'
    then begin
    CurrentXMLNode := From.ChildNodes[ i ];
    // adatfeldolgozás a CurrentXMLNode alapján
    // pl. valami := CurrentXMLNode.Attributes[ 'egyikattributum' ] ;
    // valami2 := CurrentXMLNode.Attributes[ 'masikattributum' ] ;
    end;
    if CurrentXMLNode.HasChildNodes then AddNodesToTree(CurrentXMLNode);
    end;

    ...és ezt a rutint így hívnám meg:
    AddNodesToTree(XMLDocument1.DocumentElement, nil);

    Remélem, olvasható marad a kód...

    [Szerkesztve]

Hozzászólok Aktív témák

Hirdetés